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

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，然后填写值直到它与 Master 的 B 列中的最后一个单元格匹配

示例:单元格 A10 的起始条码值为 100 ，单元格 B10 的结束条码值为 110 。在 Template 上，您希望单元格 A4 从 100 开始，填充到 110(即 100、101、102、103 ... 110)

假设我的要求正确，则此代码将起作用:

Sub CopyBarCodes()
'First clear Template sheet of previous values
Worksheets("Template").Range("A:A").ClearContents

'Now select last entry in Master sheet and get start and end bar code numbers
Dim startBarCode As Long, endBarCode As Long
Dim lastRow As Long

With Worksheets("Master")
    lastRow = .Range("A1").End(xlDown).Row
    startBarCode = .Range("A" & lastRow)
    endBarCode = .Range("B" & lastRow)
End With

'Update Template with barcode
With Worksheets("Template")
    .Range("A4").Value = startBarCode
    .Range("A4").DataSeries Rowcol:=xlColumns, Type:=xlLinear, Date:=xlDay, Step:=1, Stop:=endBarCode, Trend:=False
End With

End Sub

希望这可以帮助...