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

我需要帮助在excel中为我的程序编写子例程。 我想要做的是从一张表（条形码主）获取信息，并填写到另一张表（模板）。 我logging了一个macros，这让我到了复制和粘贴信息的地步。 在条形码主表上，我列出了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中有末尾号码
• 您想要selectMaster列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 

希望这可以帮助…