|
▼マリモ さん:
結果をSheet2のA列に書き込んでいます。
Sheet1の1行目の最初の数字はA列から始まっているものとします。
で、ab などのデータはA列2行目から始まっているものとします。
効率を考えればもっと違うコードになりますが、基本的な処理コードとして。
Sub Sample()
Dim x As Long
Dim y As Long
Dim i As Long
Dim j As Long
Dim k As Long
Dim sh2 As Worksheet
Application.ScreenUpdating = True
Set sh2 = Sheets("Sheet2")
sh2.Columns("A").ClearContents '実行前に転記領域をクリア
With Sheets("Sheet1")
x = .Cells(1, .Columns.Count).End(xlToLeft) '1行目の最終列番号
y = .Range("A" & .Rows.Count).End(xlUp).Row 'A列の最終行番号
For i = 2 To y '2行目から最終行まで各行のコードを取得するためにループ
For j = 1 To y '各行ごとに1行目のA列から最終列までの数値を取得するためにループ
k = k + 1 '転記シートの行番号をカウントアップ
sh2.Cells(k, "A").Value = .Cells(i, "A").Value & .Cells(1, j).Value
Next
Next
End With
Application.ScreenUpdating = True
sh2.Select
MsgBox "転記終了です"
End Sub
|
|