|
こんにちは。かみちゃん です。
>行のデータを表に表示をしています。
For 〜 Next による繰り返し処理を使います。
具体的には、以下のような感じに工夫します。
もしかしたら、もっと短くなるかもしれませんが、「マクロ初心者」ということですので、
あまり難しいことは書かないでおきます。
Sub Sample()
Dim ws1 As Worksheet
Dim ws2 As Worksheet
Dim lngRow As Long
Set ws1 = Sheets("一覧")
Set ws2 = Sheets("印刷")
With ws1
'照会データ
.Cells(1, 4).Value = ws2.Cells(6, 4).Value
.Cells(43, 5).Value = ws2.Cells(6, 5).Value
.Cells(43, 8).Value = ws2.Cells(6, 6).Value
.Cells(1, 15).Value = ws2.Cells(6, 8).Value
.Cells(44, 6).Value = ws2.Cells(6, 9).Value
.Cells(1, 10).Value = ws2.Cells(6, 10).Value
.Cells(2, 18).Value = ws2.Cells(6, 28).Value
.Cells(2, 16).Value = ws2.Cells(6, 28).Value
.Cells(1, 8).Value = ws2.Cells(6, 41).Value
For lngRow = 6 To 15
.Cells(lngRow * 2 - 9, 6).Value = ws2.Cells(lngRow, 2).Value
.Cells(lngRow * 2 - 9, 7).Value = ws2.Cells(lngRow, 3).Value
.Cells(lngRow * 2 - 9, 2).Value = ws2.Cells(lngRow, 14).Value
.Cells(lngRow * 2 - 9, 11).Value = ws2.Cells(lngRow, 26).Value
.Cells(lngRow * 2 - 9, 16).Value = ws2.Cells(lngRow, 29).Value
.Cells(lngRow * 2 - 9, 17).Value = ws2.Cells(lngRow, 30).Value
.Cells(lngRow * 2 - 9, 19).Value = ws2.Cells(lngRow, 31).Value
.Cells(lngRow * 2 - 9, 12).Value = ws2.Cells(lngRow, 32).Value
.Cells(lngRow * 2 - 9, 13).Value = ws2.Cells(lngRow, 33).Value
.Cells(lngRow * 2 - 9, 15).Value = ws2.Cells(lngRow, 34).Value
.Cells(lngRow * 2 - 9, 8).Value = ws2.Cells(lngRow, 36).Value
.Cells(lngRow * 2 - 8, 8).Value = ws2.Cells(lngRow, 38).Value
.Cells(lngRow * 2 - 9, 9).Value = ws2.Cells(lngRow, 39).Value
.Cells(lngRow * 2 - 8, 9).Value = ws2.Cells(lngRow, 41).Value
.Cells(lngRow * 2 - 9, 10).Value = ws2.Cells(lngRow, 42).Value
Next
End With
End Sub
|
|