Используя VBA в Excel, как мне пройти по столбцу и создать новые листы на основе значений ячеек?

Question

У меня есть столбец на листе 1, содержащий разные значения. Я хотел бы пройти через столбец и создать новые листы с именем листа, соответствующим значениям. Каждый раз, когда я создаю лист, мне нравится активировать новый лист и выполнять на нем некоторые задачи.

 Sub test()
 i = 4 'starting row in sheet 1

   While Not IsEmpty(Cells(i, 1))


    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets.Add
    ws.Name = Cells(i, 1).Value
    'do something to new sheet

    i = i + 1
 Wend
 End Sub

Это не работает, и примеры, которые я нашел в Интернете, слишком сложны для моих нужд. Я надеюсь на простое решение, указывающее, что я сделал не так. спасибо

Answer 1

Это добавляет рабочие листы и присваивает им имена в соответствии со значениями в формате А4 вниз:

Dim wks As Worksheet
Dim wksNew As Worksheet
Dim rngCell As Range

Set wks = Sheets("Sheet1")
Set rngCell = wks.Range("A4")

While Not IsEmpty(rngCell)
    Set wksNew = ActiveWorkbook.Worksheets.Add(After:=Sheets(Sheets.Count))
    wksNew.Name = rngCell.Value

    'do stuff with wksNew

    Set rngCell = rngCell.Offset(1)
Wend