Excel VBA 質問スレ Part78

[1 デフォルトの名無しさん (ﾜｯﾁｮｲ 5f2e-juJ7) 2022/10/30(日) 13:43:16.31 ID:6yf2E1Gz0]

!extend:checked:vvvvv:1000:512
!extend:checked:vvvvv:1000:512
↑同じ内容を3行貼り付けること

ExcelのVBAに関する質問スレ
コード書き込みや作成依頼もOK

次スレは>>980が立てること
無理なら細かく安価指定

※前スレ
Excel VBA 質問スレ Part77
https://mevius.5ch.net/test/read.cgi/tech/1658009255/

-
VIPQ2_EXTDAT: checked:vvvvv:1000:512:: EXT was configured

---

VIPQ2_EXTDAT: checked:vvvvv:1000:512:: EXT was configured

[258 デフォルトの名無しさん (ﾜｯﾁｮｲ aa01-QZbE) 2022/12/04(日) 14:24:22.61 ID:S/+N28Tr0]

>>256
VBA 最終行 でググれ
https://www.excel-ubara.com/excelvba1/EXCELVBA318.html

> シート2のA2からA列の最終行
なら
With Worksheets("シート2")
LastRow =.Cells(.Rows.Count, "A").End(xlUp).Row
End With

[259 デフォルトの名無しさん (ｽｯﾌﾟ Sdc4-4FAg) 2022/12/04(日) 15:39:27.71 ID:E+FYkBejd]

>>256
クリップボード経由しないならこんな感じじゃない
Dim iLastRow As Long
iLastRow = Worksheets("Sheet2").Range("A1").SpecialCells(xlLastCell).Row
Worksheets("Sheet1").Range("B1:B" & CStr(iRow - 1)).Value = Worksheets("Sheet2").Range("A2:A" & CStr(iLastRow)).Value
ちなみに代入元と代入先の行数を合わせる必要があるからそこは必要に応じて書き換えてね