質問者が納得Sub test()Dim i As LongDim myR As RangeSet myR = Sheets(1).Range("B1")For i = 2 To 6myR.Resize(30, 1).Value = Sheets(i).Range("A1:A30").ValueSet myR = myR.Offset(, 2)NextSet myR = NothingEnd Subこんなやり方もあります。t=2の位置がおかしいんだと思いますよ。一番外にこなきゃいけ...
5274日前view27