Les galetes ens ajuden a lliurar els nostres serveis. En utilitzar els nostres serveis, accepteu el nostre ús de cookies.
Consell: altres idiomes es tradueixen en Google. Pots visitar el English versió d'aquest enllaç.
Iniciar Sessió
x
or
x
x
Registre
x

or

Com combinar totes les altres files / cel·les d'Excel?

Si teniu una llista de dades i voleu combinar qualsevol altra fila o cel·la d'elles tal com es mostra a continuació, saps com fer-ho? En Excel, podeu utilitzar la fórmula o VBA per combinar totes les altres files o cel·les.


Combineu cada altra fila o cel·la amb la fórmula en Excel

Uneix totes les altres files / cel·les amb VBA


fletxa blau dreta bombolla Combineu cada altra fila o cel·la amb la fórmula en Excel


Seleccioneu una cel·la buida i escriviu =OFFSET(A$1,(ROW()-1)*2,0)&" "&OFFSET(A$1,((ROW()-1)*2)+1,0) (A $ 1 indica les primeres dades de la vostra llista, podeu canviar-la segons necessiteu) i premeu la tecla Intro. A continuació, arrossegueu l'identificador de farcit per omplir el rang que necessiteu per aplicar aquesta fórmula. Mostra la captura de pantalla:



fletxa blau dreta bombolla Uneix totes les altres files / cel·les amb VBA

Si esteu acostumat a utilitzar VBA, també podeu executar el següent VBA per combinar-se amb cada altra fila.

1. Espera ALT botó i premeu F11 al teclat per obrir un Microsoft Visual Basic per a aplicacions finestra.

2. clic Insereix > Mòduls, i copieu el VBA al mòdul.

VBA: combina cada altra fila o cel·la

Sub CombineCells()
'Updateby20140314
Dim rng As Range
Dim InputRng As Range, OutRng As Range
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)
Set OutRng = Application.InputBox("Out put to (single cell):", xTitleId, Type:=8)
For i = 1 To InputRng.Rows.Count Step 2
    For j = 1 To InputRng.Columns.Count
        OutRng.Value = InputRng.Cells(i, j).Value & InputRng.Cells(i + 1, j).Value
        Set OutRng = OutRng.Offset(0, 1)
    Next
    Set OutRng = OutRng.Offset(1, (InputRng.Columns.Count * -1))
Next
End Sub         

3. clic Correr per executar el codi VBA i a KutoolsforExcel El quadre de diàleg apareix perquè seleccioneu un interval de cel·les que voleu combinar a la resta de les files. Mostra la captura de pantalla:


4. clic OK, un altre quadre de diàleg us mostra per seleccionar una sola cel·la per mostrar el resultat combinat. Mostra la captura de pantalla:


5. clic OK, i podeu veure el resultat:



Articles relatius:

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.