Цикл: добавить порядковый номер, удалить столбцы

Question

Я хочу знать сценарий VBA для цикла: добавить порядковый номер (начальный номер 1000 и 1001, 1002, 1003 и т. Д.) В определенный столбец и удалить другие конкретные столбцы из нескольких файлов Excel в одну папку. Цель состоит в том, чтобы иметь точный формат Excel для обработки данных в специальном программном обеспечении. Я начинающий с кодом VBA. Спасибо за ваше время.

Answer 1

Возможное решение:

Option Explicit

Sub test()

    Dim LastRowC As Long, i As Long

    With ThisWorkbook.Worksheets("Sheet1")

        'Let us assume that values appear in Column C. Find last row of column C
        LastRowC = .Cells(.Rows.Count, "C").End(xlUp).Row

        'Add Values in Column B
        For i = 1 To LastRowC
            .Range("B" & i).Value = i + 1000
        Next i

        'Clear Column A
        .Columns("A:A").Clear

    End With

End Sub

Answer 2

dim i as integer
i = 1000
dim max as integer
max = 1000000
while i < max
   begin
     set i = i + 1
     ' do funky column editing , deleting, whatever 
   end