在 Excel 2007 中使用宏进行复制和粘贴

Question

我正在尝试从“查找表”列中的一行文本中复制并粘贴到从 CCX2 开始的第二行。例如，我需要复制 2856FRGM 并粘贴到 12 个单元格（CCX2 - CDI2），然后复制 2856GRPM 并粘贴到接下来的 12 个单元格，依此类推。

我有大约 3600 个唯一的零件编号可以用来完成此任务。

到目前为止，这是我拥有的宏，但它粘贴的是 Excel 中第一个零件号的全长，而不是每个零件号 12 行。只在下面的行中开始一个新的零件号。

任何帮助都将不胜感激，今天才开始使用宏，所以我真的不知道我在做什么，哈哈

Answer 1

子粘贴()

( "H4:H5" )。选择 Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ := False, Transpose:= False Range( "H8" )。选择

应用程序.CutCopyMode = False

Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks := False, Transpose:= False Range(“H10”). 选择

应用程序.CutCopyMode = False

Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ := False, Transpose:= False Range(“H13:H16”). 选择

应用程序.CutCopyMode = False 选择.复制 选择.PasteSpecial 粘贴:=xlPasteValues, 操作:=xlNone, SkipBlanks := False, 转置:= False

子目录结束

注意：这是示例代码，请根据需要调整您的手机地址。