이 기사에서는 연속 된 두 열의 텍스트를 단일 열로 결합하는 매크로를 만듭니다.

원시 데이터는 단일 열로 병합하려는 이름과 성으로 구성됩니다.

ArrowRawData

코드 설명

IntRow = Cells (Rows.Count, 1) .End (xlUp) .Row 위 코드는 마지막 셀의 행 번호를 가져 오는 데 사용됩니다.

Cells (i, 1) = Cells (i, 1) & “”& Cells (i, 2)

위의 코드는 1 열과 2 열에있는 셀의 값을 연결합니다.

Columns (2) .Delete 위 코드는 두 번째 열을 삭제하는 데 사용됩니다.

ArrowOutput

아래 코드를 따르세요

Option Explicit

Sub CombiningData()



'Declaring variables

Dim i As Integer, IntRow As Long

'Disabling screen updates

Application.ScreenUpdating = False

'Getting row number of last cell

IntRow = Cells(Rows.Count, 1).End(xlUp).Row

'Looping from 13th row to last row

For i = 13 To IntRow

'Concatenating the value of two consecutive cells

Cells(i, 1) = Cells(i, 1) & " " & Cells(i, 2)

Next

'Assigning value to cell A12

Range("A12") = "Name"

'Deleting second column

Columns(2).Delete

'Auto adjusting the size of cells in columns

Columns.AutoFit

'Enabling screen updates

Application.ScreenUpdating = True



End Sub

이 블로그가 마음에 들면 Facebook 및 Facebook에서 친구들과 공유하십시오.

여러분의 의견을 듣고 싶습니다. 작업을 개선하고 더 나은 서비스를 제공 할 수있는 방법을 알려주십시오. [email protected]로 문의 해주세요