TeoLab

A열을 B열로 옮겨 적는 코드이다

Option Explicit
Sub var_array()

Range("b:b").ClearContents
Dim ArraySize As Integer
ArraySize = Range("a1", Range("a1").End(xlDown)).Rows.Count  'count Row"

Dim InputLine As Integer
Dim OutputLine As Integer
Dim i As Integer

OutputLine = 10

For i = 1 To ArraySize
    Cells(OutputLine, 2).Select
    Selection.Value = Cells(i, 1)
    OutputLine = OutputLine + 1
       
       
        Dim q As Integer
        For q = 1 To 3
        Cells(OutputLine, 2).Select
        Selection.Value = "Delete"
        OutputLine = OutputLine + 1
       
        Next q
       
    Next i
    Cells(OutputLine, 2) = "Final1"
    OutputLine = OutputLine + 1
    Cells(OutputLine, 2) = "Final2"
    OutputLine = OutputLine + 1
    Cells(OutputLine, 2) = "Final3