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

我需要帮助为我的程序在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

来源

2010-08-04 christina

请使标题更多的信息。 – Sruly 2010-08-04 12:03:25

它不是从您的帖子完全清楚你要实现的目标所以我不得不作出一些假设...

在工作簿中有两个表名为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

希望这有助于...

来源

2010-08-04 17:52:18

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

回答

相关问题