Excel総合相談所 95

>>70
行を取得して(ﾏｸﾛの記録でctrl+↑)その範囲をfornextでぐるぐる回す、を覚えたら何でもできるようになるぜ
Sub aaaa()
gyo = Sheets("Sheet2").Cells(65535, 1).End(xlUp).Row
For k = 1 To gyo
If Cells(k, 1) = Sheets("Sheet1").Cells(1, 1) Then
If Sheets("Sheet1").Cells(1, 2) > Sheets("Sheet2").Cells(k, 2) Then
Sheets("Sheet2").Cells(k, 2) = Sheets("Sheet1").Cells(1, 2)
End If
End If
Next
End Sub
後は君のしたい事は大体予想できる。シートA列全体で同じことしたいんだろう
Sheets("Sheet1").Cells(1, 1) をfornextでCells(b, 1)にしてfor b = 1 to si-to1gyoで全体をぐるぐるするだけだ。がんばれ
わかんなかったらもっかい聞いていいぞ
>>71
俺は答えるがふざけた質問は回答が遅くなったりこなかったりする原因になるぞ。回答する側に回ればふざけ放題だぞ。ｳﾍﾍ
C1=INDIRECT("r"&INT((ROW()+1)/2)&"c"&1+MOD(ROW()+1,2),0)
下にオートフィルな