Excel(VBA) A열을 B열로 옮기기

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

Published by

TEO

-Language KOR, JPN, ENG . -Major Mechanics, C++ . -Camera A6000, SM-950N

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out /  Change )

Twitter picture

You are commenting using your Twitter account. Log Out /  Change )

Facebook photo

You are commenting using your Facebook account. Log Out /  Change )

Connecting to %s