Without Excel? Gjenta å kopiere og lime inn kolonner data, kan følgende VBA-kode hjelpe deg å takle denne jobben raskt og enkelt.
1. Hold nede ALT + F11-tastene i Excel, og det åpner Microsoft Visual Basic for Applications vinduet.
2. Klikk Sett > Modul, og lim inn følgende makroen i modulen Window
VBA-kode. Kombiner eller slå sammen flere kolonner i en liste
Sub CombineColumns1 () 'updateby Extendoffice 20151030 Dim xRng Som Range Dim jeg As Integer Dim xLastRow As Integer Dim xTxt As String On Error Resume Next xTxt = Application.ActiveWindow.RangeSelection.Address Set xRng = Application.InputBox ("velg dataområdet", "Kutools for Excel", xTxt,,,,, 8) Hvis xRng Er Ingenting Deretter Exit Sub xLastRow = xRng.Columns (1) .Rows.Count + 1 For i = 2 Til xRng.Columns.Count Range (xRng.Cells (1, i), xRng.Cells (xRng.Columns (i) .Rows. telle, i)) Kutt ActiveSheet.Paste Destinasjon:. = xRng.Cells (xLastRow, 1) xLastRow = xLastRow + xRng.Columns (i) .Rows.Count NextEnd Sub3. Deretter trykker F5 for å kjøre denne koden, og en rask boks vil komme ut for å minne deg velge dataområdet som du ønsker å kombinere inn bare én kolonne, se skjermbilde:
4. Og klikk deretter på OK-knappen, og de valgte kolonnene slått sammen til bare én kolonne som følgende skjermbilder vist:
Tips: Etter å ha kjørt denne VBA, vil de opprinnelige dataene i serien skal tømmes, vil du bedre kopiere og lagre dem på et annet sted først.