VBA初心者です。 下記のシート1から別シート2に 転記をしたいです。

Visual Basic | Excel43閲覧

ベストアンサー

0

ThanksImg質問者からのお礼コメント

ありがとうございました無事作動しました! A1,B1セルが 極端に A100,B100ぐらいまであった場合 どうしたらよろしいでしょうか

お礼日時:4/19 19:36

その他の回答(1件)

0

私がやるならこうします。 ※VBEの参照設定でMicrosoft ActiveX Data Object *** Libraryにチェック Sub Sample() Dim rs As New ADODB.Recordset With rs .Fields.Append "Number", adInteger .Fields.Append "Item", adVarChar, 32 .Open Dim i As Long, rmax As Long rmax = Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row For i = 1 To rmax .addnew !Number = Sheets(1).Cells(i, 1) !Item = Sheets(1).Cells(i, 2) .Update Next .Sort = "Number ASC" .MoveFirst For i = 1 To rmax Sheets(2).Cells(i + (i - 1) * 2, 1) = !Number Sheets(2).Cells(i + 1 + (i - 1) * 2, 1) = !Item .MoveNext Next .Close End With End Sub