Question

我有一些函数可以执行简单的复制+粘贴操作，但是我需要先分析数据然后再粘贴-我需要抓住剩下的3个字符。

这就是我现在拥有的：

Set curr_ws = Worksheets("Data")
curr_ws.Range(data_curr_rng.Address(0, 0)).Copy

Set curr_ws = Worksheets(cal_name)
curr_ws.Range(site_curr_position.Address(0, 0)).PasteSpecial Paste:=xlPasteAll

有没有一种方法可以保留这些数据，而不必在解析时将数据存储在变量中？

Answer 1

如果您要复制一个单元格，则可以尝试如下所示的值传输。

这避免了将值存储在变量和剪贴板中！

curr_ws.Range(site_curr_position.Address(0, 0)).Value = _
Left(curr_ws.Range(data_curr_rng(Address(0, 0)).Value, 3)

如何保留复制和粘贴功能而不必将数据存储在变量中？

1 个答案: