VBA大大請幫忙看一下?

[匿名]

2017-03-21 1:52 pm

我有一個資料表, 儲存格欄數不一定, 列數也不一定, 大致上的需求都已完成VBA撰寫, 以下二個步驟想請大大指點一下

1. 我想在有資料的最後一列的下一列C欄位, 打上字母S
2. 選取儲存格B4起至欄位D 有資料的最後一列的下一列為止並複製

以上

回答 (1)

Lopez

2017-03-22 1:49 am

✔ 最佳答案

1. 有資料的最後一列的下一列C欄位, 打上字母S

final_row = 1

For i = 1 To 256
x = Cells(65536, i).End(xlUp).Row

If x > final_row Then
final_row = x
End If
Next

Cells(final_row + 1, 3) = "S"

--------------------------------------------------------------------------------------

2. 選取儲存格B4起至欄位D 有資料的最後一列的下一列為止並複製

final_row = 1

For i = 2 To 4
x = Cells(65536, i).End(xlUp).Row

If x > final_row Then
final_row = x
End If
Next

Range(Cells(4, 2), Cells(final_row, 4)).Copy

👍 1 👎 0