如何在excel VBA中選擇一個單元格？

Question

我在單元格P2中應用了一些公式。 我想在該列P中的所有單元格中應用相同的公式（如ctrl + D），直到我在C列中的值為止。

Range("C1").Select
Selection.End(xlDown).Select
lastcell_number = ActiveCell.Row
Range("P",lastcell_number).Select.

這是投擲錯誤。 如何選擇P列中的最后一列？

Answer 1

如果公式已經在P2中，那么，

with worksheets("Sheet1")
    .range(.cells(2, 3), .cells(rows.count, 3).end(xlup)).offset(0, 13).formula = _
      .range("P2").formula
end with

如果公式尚未在P2中，那么，

with worksheets("Sheet1")
    .range(.cells(2, 3), .cells(rows.count, 3).end(xlup)).offset(0, 13).formula = _
      "=SUM(A2:O2)"   '<~~put your own formula here
end with

Answer 2

要選擇最后一個單元格總是從工作表底部而不是從頂部向下，這是因為任何空白行將是它停止給您一個錯誤行號的第一個位置。

lastcell_number = Range("C" & Rows.Count).End(xlup).row

另請注意，您無需選擇它以查明它是什么。 通常情況下，您實際需要選擇內部代碼的情況非常少。

這個：

Range("A1").select
MyStr = Selection.text
Range("B1").select
Selection.Formula = MyStr

可寫成：

MyStr = Range("A1").text
Range("B1").Formula = MyStr

假設您在代碼中的任何其他地方都不需要MyStr，那么它可以再次壓縮到此：

Range("B1").Formula = Range("A1").text