VBAで質問させてください。

画像

Visual Basic | Excel70閲覧

ベストアンサー

0

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

回答ありがとうございました。 思い通りに動かすことができました。 今回頂いたプログラムをいろいろなパターンで試してVBAのスキルを上げていきたいと思います。 ホントにありがとうございました。

お礼日時:2021/11/30 23:02

その他の回答(2件)

1

私のファイルの都合上、シート1、シート2をシート7、シート8で作成しています。 質問で2行目が空欄になるまでとの要望ですが、G列以降も2行置きで入力されており、途中で空欄が無いとの前提で作成しています。 今回は、列方向は200列、行方向は1000行で対応できるようにしています。 もっと増やしたければ、n0の1000、n1の200を書き換えて下さい。 プログラム以下の通です。 Sub Sheet7_ボタン3_Click() With Worksheets("Sheet8") For n0 = 2 To 1000 If Cells(n0, 3).Value = "" Then Exit For Else For n1 = 1 To 200 Step 2 If Cells(2, 2 + n1).Value = "" Then Exit For Else .Cells(n0, 2 + (n1 - 1) / 2).Value = Cells(n0, 2 + n1) End If Next End If Next End With End Sub

画像

1人がナイス!しています

回答ありがとうございました。 プログラム試してじっこうできました。 ただプログラムがちょっと自分には難しく他に応用できそうになかったです。 もう少しVBAを勉強し、今回頂いたプログラムを理解してい行きたいと思います。 ホントにありがとうございました。

0

>VBAで質問させてください。 VBAについて質問です。 >2行おきに 2列おきに >それを2行目が空欄になるまで 2列目