ワイ社畜、吐く🤮

340 ：ぷにぷに名無しさん (ﾌﾟｯﾁｮｲ ADCH-Ytb8)：2023/09/26(火) 22:38:37.92 ID:7NZjAu5+

>>303
大体こんな感じやろ？
エディターで書いたわけやないからところどころ文法適当やと思うけど

Dim i as long ‘参照テーブルループ用
Dim j as long ‘コピー先ループ用

Dim Minval as long ‘最小値取得
Dim Maxval as long ‘最大値取得
Dim strMintoMax as string ‘##~##

i=0
j=0

Do until Range(“うんこの開始セル”).offset(i,0)

If Range(“うんこの開始セル”).offset(i-1,0) <> “うんこ” and Range(“うんこの開始セル”).offset(i,0) = “うんこ” then
minval = Range(“数字の開始セル”).offset(i,0) ‘最小値取得
end if

If Range(“開始セル”).offset(i,0) = “うんこ” and Range(“開始セル”).offset(i+1,0) <> “うんこ” then
maxval = Range(“数字の開始セル”).offset(i,0) ‘最大値取得

‘最小値と最大値が取得できたので貼付する
strMintoMax = minval & “~” & maxval
with Sheets(“貼り付け先シート”)
.Range(“貼り付け先シートのうんこ行の開始セル”).offset(j,0) = “うんこ”
.Range(“貼り付け先シートの数字行の開始セル”).offset(j,0) = strMintoMax
end with
j = j + 1
minval = “”
maxval = “”
end if

i = i + 1
loop