Question

我需要帮助在excel中为我的程序编写子例程。我要做的是从一张纸（条形码主文件）中获取信息并将其填入另一张纸（模板）。我录制了一个宏，这让我到了复制和粘贴信息的地步。在条形码主表上，我列出的条形码范围是A列单元格中的起始编号，B列单元格中的结束编号。我想取起始编号并将其复制到单元格A4中模板并将其填满，直到它等于条形码的结束数字。另外在条形码主控器上的起始编号所在的位置我希望它始终是A行和B行中最后一个填充的单元格。这是我到目前为止所拥有的。请帮忙。感谢

Sub Macro9()

// Macro9 Macro
// Macro recorded 7/30/2010 by Christina 



    Sheets("barcode master").Select
    Range("D648").Select
    Selection.Copy
    Sheets("barcode template").Select
    Range("F1").Select
    ActiveSheet.Paste
    Sheets("barcode master").Select
    Range("E648").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("barcode template").Select
    Range("J1").Select
    ActiveSheet.Paste
    Sheets("barcode master").Select
    Range("F648").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("barcode template").Select
    Range("B1").Select
    ActiveSheet.Paste
    Sheets("barcode master").Select
    Range("A648").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("barcode template").Select
    Range("A4").Select
    ActiveSheet.Paste
    Range("a5").Value = Range("a4") + 1

End Sub

Answer 1

从你的帖子中发现你想要达到的目标并不完全清楚，所以我必须做出一些假设...

在工作簿中，您有两张名为Master和Template
在Master列中，A列的条码起始编号，B列的末尾编号为
您想要选择Master列A中的最后一行，将该值粘贴到Template单元格A4，然后填充值，直到它与{{1}的B列中的最后一个单元格匹配}}

示例：单元格A10的起始条形码值 100 ，单元格B10的结束条形码值 110 。在Master上，您希望单元格A4以100开头，填充为110（即100,101,102,103 ... 110）

假设我的要求正确，那么此代码将起作用：

Template

希望这会有所帮助......

根据范围内的值填充单元格

1 个答案: