Hogyan lehet egyesíteni az Excel minden második sorát / celláját?
Ha rendelkezik adatlistával, és minden más sort vagy cellát össze kíván kapcsolni az alábbiak szerint, tudja, hogyan kell elvégezni? Az Excelben képlet vagy VBA segítségével egyesítheti minden más sort vagy cellát.
Minden más sort / cellát egyesítsen az Excel képletével
Minden más sort / cellát egyesítsen a VBA-val
Minden más sort / cellát egyesítsen az Excel képletével
Válasszon egy üres cellát, és írja be =OFFSET(A$1,(ROW()-1)*2,0)&" "&OFFSET(A$1,((ROW()-1)*2)+1,0) (A $ 1 jelzi a lista első adatait, szükség szerint módosíthatja), és nyomja meg az Enter billentyűt. Ezután húzza meg a kitöltő fogantyút, hogy kitöltse a képlet alkalmazásához szükséges tartományt. Lásd a képernyőképet:
Minden más sort / cellát egyesítsen a VBA-val
Ha megszokta a VBA használatát, akkor futtathatja az alábbi VBA-t is, hogy minden más sort egyesítsen.
1. Tartsa ALT gombot és nyomja meg a gombot F11 a billentyűzeten a Microsoft Visual Basic alkalmazásokhoz ablak.
2. kettyenés betétlap > Modulok, és másolja a VBA-t a modulba.
VBA: Egyesítsen minden más sort / cellát
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. kettyenés futás a VBA kód futtatásához, és a KutoolsforExcel Megjelenik a párbeszédpanel, ahol kiválaszthatja azt a cellatartományt, amelyet egyesíteni kíván minden második sorban. Lásd a képernyőképet:
4. kettyenés OK, megjelenik egy másik párbeszédpanel, amelyben kiválaszthatja az egyetlen cellát az összevont eredmény kitöltéséhez. Lásd a képernyőképet:
5. kettyenés OK, és láthatja az eredményt:
