如何正确存储activecell.cells

Question

嗨，这只是一个简单的问题。 我需要知道如何有效地存储ActiveCell的值？ 我一直在努力：

Dim acStore As String
acstore = ActiveCell.Cells(1, 1)

但它不起作用。我通常会遇到不匹配错误 我甚至试过Dim acstore As Range但无济于事 我想做的是缩短这段代码：

ActiveCell.Cells(1, 5).Copy _
    Destination:=wsTest.Range("A" & Rows.Count).End(xlUp).Offset(1)

类似于：

acStore.Copy Destination:=wsTest.Range("A" & Rows.Count).End(xlUp).Offset(1)

Answer 1

啊回顾了你的问题，正确的做法是：

Dim acstore As Range
Set acstore = ActiveCell(1, 5)

然后你可以使用你想要的代码。

Answer 2

如果活动单元格的值是字符串，则以下内容将起作用：

acStore$ = ActiveCell.Value

如果值不是字符串，但您希望将其存储为一个字符串，则使用：

acStore$ = CStr(ActiveCell.Value)