Question

这是我第一次发帖，所以放轻松。我也很擅长在excel中使用宏功能。

我有一个单元格（C1），当输入资产ID计算折旧多年时。资产ID全部列在C12：C3981中。我正在尝试找到一种方法来获取C12中列出的资产ID，将其放在C1中，然后复制一个范围并将其放在J12（或任何C资产放在C1中的J列）。我有一个手动执行的代码，但我必须输入C值。无论如何选择说C12到C3981并将它们单独输入到C1中，其J值会自动复制和粘贴吗？

这是我现在使用的，这非常麻烦。

Range("C1").Value = "=C14"
Range("J10:AA10").Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy
Range("J14").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
Application.CutCopyMode = False

Range("C1").Value = "=C15"
Range("J10:AA10").Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy
Range("J15").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
Application.CutCopyMode = False

非常感谢任何帮助！

谢谢！

Answer 1

这就是诀窍（我测试了它）：

For idx = 12 To 3981
  Range("C1").Value = "=C" & CStr(idx)
  Range("J10:AA10").Select
  Range(Selection, Selection.End(xlToRight)).Select
  Selection.Copy
  Range("J" & CStr(idx)).Select
  Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
  Application.CutCopyMode = False
Next idx

如何将多个单元格分别输入到一个位置？

1 个答案: