首页 文章

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

提问于
浏览 次
1

我需要帮助在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
excel vba excel-vba

1 回答

  • 4

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

    • 在工作簿中，您有两张名为 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

    希望这可以帮助...

    回复于

相关问题