如何从特定单元格复制并使用excel vba将其粘贴到另一个范围内

Question

我有一个excel，我已经定义了＆＃34; CTPT＆＃34;在A列中，我成功地获取了＆＃34; CTPT＆＃34;使用代码：

With .Range("A1:A10000")
Set cF = .Find(what:="CTPT", _
    lookat:=xlPart, searchorder:=xlByRows, searchdirection:=xlNext, _
    MatchCase:=False, SearchFormat:=False)

num = cF.Address ' Here i get the cell address $A$14

现在我正在努力的任务是我要复制控制电源变压器中的所有数据（这里是从A13到B18），在＆＃34; CTPT＆＃34;的帮助下选择特定的范围。单元格地址。

我尝试使用下面的代码，但它复制了B，C和D列而没有选择A列。

WsEPC.Range(cF.Offset(-1, 3), cF.Offset(2, 1).End(xlDown)).Copy

任何人都可以帮助我实现它。感谢任何帮助！

Answer 1

试试这个..

WsEPC.Range(cF.Offset(-1, 0), cF.Offset(3, 3)).Copy