Question

我有一个包含2个不同工作表的工作表。第一页称为“手动查找”，第二页称为GT＃。在GT＃工作表中，我希望能够将H列中的数据从H6复制到具有数据的该列的最后一行，并将特殊内容粘贴到工作表“手动查找”中C列的第一个空闲行中。 GT＃工作表的H列在每个单元格中都有一个公式，可以将正确的数据从A列中提取出来，并正确显示数字。

我设置了用于复制和粘贴信息的代码，但这是一个范围。问题在于范围，它会拉出GT＃列H中的空白单元格，并导致我的“手动Loopkup”工作表上的程序停止工作。我只希望从A列转换过来的H列中的数据。原因范围也无济于事，有时我可能要转移700个数字，而其他时候超过2000个。我只需要一种方法仅处理H6列中的数据然后向下复制要复制并粘贴到“手动查找”表中C列的第一个空闲单元中的数据。谢谢大家的帮助。

=TRIM(RIGHT(SUBSTITUTE(A1,",",REPT(" ",LEN(A1))),LEN(A1)))

Sub COPYPASTER()
  Sheets("GT#").Range("H6:H1200").Copy
  Sheets("Manual Lookup").Cells(Rows.Count, "C").End(xlUp).Offset(1). _
    PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
    SkipBlanks:=False
  Application.CutCopyMode = False
End Sub

复制和粘贴专用于仅一列而不是范围内的数据

0 个答案: