Excel에서 별도의 열에있는 여러 목록이 있지만 일부 열에 데이터가 포함되지 않습니다. 필자가해야 할 일은 데이터가있는이 열을 하나의 큰 열로 결합하는 것입니다. 중간에 빈 행으로Excel - 데이터가있는 경우 여러 열을 하나로 결합
A
B
C
D
E
F
G
H
I
:
Row 1 | A B
Row 2 | C D E
Row 3 | F
Row 4 | G H I
감사합니다.
나는 이것을 수행하는 몇 가지 방법을 생각할 수 있습니다. 아래 수식을 사용하십시오. MOD (ROW (A1) -1 + COLUMNS (MyData), COLUMNS (MyData)) + 1)이 때, INDEX (MyData, 1 + INT ((ROW (A1) -1)/COLUMNS (MyData)
여기서는 'MyData'가 명명 된 범위라고 가정합니다.
대신 간단한 VBA 스크립트를 사용하여 작업을 수행 할 수 있습니다.
Sub ConvertRangeToColumn()
Dim Range1 As Range, Range2 As Range, Rng As Range
Dim rowIndex As Integer
xTitleId = "Title"
Set Range1 = Application.Selection
Set Range1 = Application.InputBox("Source Ranges:", xTitleId, Range1.Address, Type:=8)
Set Range2 = Application.InputBox("Convert to (single cell):", xTitleId, Type:=8)
rowIndex = 0
Application.ScreenUpdating = False
For Each Rng In Range1.Rows
Rng.Copy
Range2.Offset(rowIndex, 0).PasteSpecial Paste:=xlPasteAll, Transpose:=True
rowIndex = rowIndex + Rng.Columns.Count
Next
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub
"붙여 넣기 : = xlPasteAll" "붙여 넣기 : = xlPasteValues"셀에 수식이 있었으므로 및 값을 싶었지만 둘 다 정규 수식 및 매크로 작업했기 때문에 매크로 업데이트되었습니다. 감사! – vwalsh10
매크로를 사용하지 않으려면 필터를 사용하여 빈 행 (내 솔루션의 0 행)을 피할 수 있어야합니다. 나는 당신의 데이터를 가정 한
우리 아래의 공식
아래로 가능한 멀리 할 수있는 공식=IF(MOD(ROW()+2,3)=0,INDEX(A:A,QUOTIENT(ROW()+2,3)),IF(MOD(ROW()+2,3)=1,INDEX(B:B,QUOTIENT(ROW()+2,3)),IF(MOD(ROW()+2,3)=2,INDEX(C:C,QUOTIENT(ROW()+2,3)),"")))
드래그 D 열에서 열 A, B 및 C
에있다. 이 열을 필터 해 제로를 삭제한다.
당신이 VBA 매크로를 사용하지 않으려면 
내가 가장 좋은 방법은 서로에 따라 열 B, 열 C, 다음 열 D, ... 하나를 복사하는 것입니다 얻을 수 있다고 생각, 다음과 같이하십시오 :
그런 다음 데이터 => 중복 제거 메뉴를 사용하여 여러 공백을 제거하십시오.
매크로를 사용하는 것에 대한 아이디어가 바뀌면 Google에서 'unpopot data Excel'을 검색하면 해결할 수있는 방법이 많이 있습니다.
VBA에서 매우 쉽게, 가능하지 않은 한 매우 어렵습니다. 나는 VBA를 계속 진행할 것을 제안하며, 귀하가 VBA를 잘 끝내도록 도와 드릴 것을 기쁘게 생각합니다. –
매크로를 원하지 않는 특별한 이유가 있습니까? 수식은 꽤 까다로울 것입니다. (글쎄요, 아마도 여기 몇몇 사용자의 영리성을 고려하지 않았을 것입니다), 확실히 VBA는 훨씬 더 빠른 해결책이 될 것입니다. 또한, 지금까지 무엇을 시도 했습니까? – BruceWayne