копирование из нескольких столбцов в другой

Question

У меня проблема:

600 столбцов с 25 строками данных.

Мне нужно скопировать данные из графов 2 600 и поместить их в конце содержания в column1.

Любая информация в том, как я могу это сделать, будет очень признательна.

Вот код, который я в настоящее время используют:

Sub test() 

    Dim rng1 As Range 
    Dim rng2 As Range 
    Dim cl As Range 
    Dim r As Long 

    Set rng1 = Range("A1", Range("A1048576").End(xlUp)) 
    Set rng2 = Range("B1", Range("B1048576").End(xlUp)) 
    r = rng1.Rows.Count + 1 

    For Each cl In rng2 
    Cells(r, 1).Value = cl.Value 
    r = r + 1 
    Next 

End Sub 

Проблема заключается в том, что только копии B колонки, а не другие столбцы (например, C, D, E и др.)

Answer 1

Вот что вам нужно я думаю:

Испытано:

Sub Test() 

Dim ws as WorkSheet 
Dim C1_lrow, C2_lrow, lcolumn, i as Long 
Dim rng as Range 

Set ws = Thisworkbook.Sheets("Sheet1") 'change this to what you have 

With ws 
    C2_lrow = .Range("B" & .Rows.Count).End(xlup).Row 
    lcolumn = .Cells(1, .Columns.Count).End(xlToLeft).Column 
    Set rng = .Range("B1:B" & C2_lrow) 
End With 

For i = 0 to lcolumn - 1 
    C1_lrow = ws.Range("A" & Rows.Count).End(xlup).Row 
    rng.Offset(0, i).copy ws.Range("A" & C1_lrow + 1) 
Next i 

End Sub 

Попробуйте, если он работает для вас.

Answer 2

I не решит это только в Excel.

1. Сохраните файл как CSV-файл
2. Открыть файл с редактором типа (например, Notepad ++)
3. Replace ";" с «» или «»
4. Сохраните файл
5. Открыть файл с Excel

Теперь у вас есть только один столбец слева.

Если вам нужно, чтобы это было сделано автоматически, вам понадобится сценарий.