excl2013 縦の表を横にVBAでする方法

お忙しいところすいませんがよろしくお願いいたします。
シート1　の　A1から　以上が入っているセルの前まで　をシート2の　A1から空白を除く値が入っているまでをコピーをしたい。
”以上”を入れて最後としてその前までをコピーする。
空白は除いてコピーする。
シート1　　　　　　　　　　シート2
A1　1　　　　　　　　　　　A1　B1　Ｃ１　Ｄ１　Ｅ１
A2　2　　　　　　　　　　　1　　2　　3
A3　空白
A4　3
A5　以上

No.1 回答者： fujillin 回答日時： 2023/11/12 12:52

こんにちは

ごく簡単にやるならこんな感じでしょうか？
（必ずしも効率の良い方法ではありません）

Sub Sample()
Dim rs As Range, rd As Range

Set rs = Worksheets("Sheet1").Range("A1")
Set rd = Worksheets("Sheet2").Range("A1")
While rs.Value <> "以上" And rs.Row < Rows.Count And rd.Column < Columns.Count
If rs.Value <> "" Then rd.Value = rs.Value: Set rd = rd.Offset(, 1)
Set rs = rs.Offset(1)
Wend
End Sub

この回答へのお礼

ありがとうございました。　助かりました。

お礼日時：2023/11/12 12:58