Заполнение ячеек на основе значений в диапазоне

Question

Мне нужна помощь, создающая подпрограмму для моей программы в excel. То, что я пытаюсь сделать, - это получить информацию с одного листа (мастер штрихового кода) и заполнить его на другой лист (Шаблон). Я записал макрос, и это позволило мне копировать и вставлять информацию. На главном листе штрих-кода у меня есть диапазон штрих-кодов, перечисленных с начальным номером в ячейке в столбце A, и конечный номер в ячейке в столбце B. Я хочу взять стартовый номер и скопировать его в ячейку A4 на шаблон и заполнить его до тех пор, пока он не будет равен конечному числу штрих-кодов. Также на главном штрих-кодах укажите место, где он принимает начальный номер. Я хочу, чтобы он всегда был последней заполненной ячейкой в ​​Row 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 колонке а имеет начальное число штрих-кода и столбец в имеет конечное число
• Вы хотите, чтобы выбрать последнюю строку в Master колонке а, вставить это значение чтобы Template клеток A4, а затем заполнить вниз значения, пока он не соответствует последней ячейки в столбце В Master

Пример: Cell A10 имеет начать бар значение кода и Cell 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 

Надеюсь, что это поможет ...