Excelにて、行の最後のセルの値をコピーして別sheetに張りつけるVBAコードをご教授願います

Excelにて、行の最後のセルの値をコピーして別sheetに張りつけるVBAコードをご教授願います

詳細
Aシートの2行から300行の間で、一番最後のセルの値（数字）をコピーしてBシートのB列に張りつけるコードをご教授願います。

画像参照
Aシートの赤丸の値（数字のみ）をコピーして、BシートのB列のＢ２から下へ張りつける


ご教授願います

No.3 ベストアンサー 回答者： tatsumaru77 回答日時： 2022/11/20 15:10

標準モジュールへ登録してください。

Option Explicit
Sub 数字の転記()
Dim shA As Worksheet
Dim shB As Worksheet
Dim row1 As Long
Dim col1 As Long
Dim row2 As Long
row2 = 2
Set shA = Worksheets("A")
Set shB = Worksheets("B")
For row1 = 2 To 300
col1 = shA.Cells(row1, Columns.Count).End(xlToLeft).Column
If IsNumeric(shA.Cells(row1, col1).Value) = True Then
shB.Cells(row2, "B").Value = shA.Cells(row1, col1).Value
row2 = row2 + 1
End If
Next
MsgBox ("完了")
End Sub

この回答へのお礼

対応していただき、感謝いたします

お礼日時：2022/11/20 16:39

No.2 回答者： googoo900 回答日時： 2022/11/20 15:07

ご自分で途中まで作ったコードがあれば、添付してください。

そのほうが、他の方も含め回答しやすいです。

この回答へのお礼

ありがとうございます

お礼日時：2022/11/20 16:38

No.1 回答者： zircon3 回答日時： 2022/11/20 14:56

えっと。

。。(^^;

文字で書くのはちょっとばかり面倒・・・ということでGoogleで「VBA　セルのコピー」とか「VBA　セルのコピー　別シート」といった簡単なキーワードで検索してみてください。
図入りで詳しく解説したWebページがたくさんひつかるはずです。(_ _)

この回答へのお礼

アドバイスありがとうございます

お礼日時：2022/11/20 16:37