根據範圍中的值填充單元格

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具有啓動和細胞B10的條形碼值具有的端部的條形碼值。在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 

希望這有助於...