寵物集市-寵物集市華東、華南、華北排行榜一覽表
343
2025-03-31
如何在Excel中合并其他所有行/單元格？
如何在Excel中合并其他所有行/單元格？
如果您有一個數據列表，并且想要將它們的每隔一行或每一個單元格合并在一起，如下所示，那么您知道如何完成它嗎？ 在Excel中，您可以使用公式或VBA合并其他所有行或單元格。
將其他每行/單元格與Excel中的公式合并
使用VBA合并每隔一行/單元格
將其他每行/單元格與Excel中的公式合并
驚人的！ 在 Excel 中使用高效的選項卡，如 Chrome、Firefox 和 Safari！
每天節省50％的時間，并減少數千次鼠標單擊！
選擇一個空白單元格并鍵入 =OFFSET(A,(ROW()-1)*2,0)&" "&OFFSET(A,((ROW()-1)*2)+1,0) （A $ 1表示列表中的第一個數據，您可以根據需要進行更改），然后按Enter鍵。 然后拖動填充手柄以填充應用此公式所需的范圍。 看截圖：
使用VBA合并每隔一行/單元格
如果您習慣使用VBA，還可以運行下面的VBA合并其他所有行。
1.按住 ALT 按鈕并按下 F11 在鍵盤上打開一個 Microsoft Visual Basic應用程序 窗口。
2。 點擊 插頁 > 模塊，然后將VBA復制到模塊中。
VBA：合并每隔一行/單元格
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
Copy
3。 點擊 運行 運行VBA代碼，以及 Kutools對于Excel 彈出對話框，您可以選擇要合并其他所有行的單元格范圍。 看截圖：
4。 點擊 OK，將顯示另一個對話框，供您選擇單個單元格以顯示合并結果。 看截圖：
5。 點擊 OK，您可以看到結果：
相關文章： 在Excel中選擇每隔一行或第n行 復制每隔一行 刪除每隔一行版權聲明：本文內容由網絡用戶投稿，版權歸原作者所有，本站不擁有其著作權，亦不承擔相應法律責任。如果您發現本站中有涉嫌抄襲或描述失實的內容，請聯系我們jiasou666@gmail.com 處理，核實后本網站將在24小時內刪除侵權內容。
版權聲明：本文內容由網絡用戶投稿，版權歸原作者所有，本站不擁有其著作權，亦不承擔相應法律責任。如果您發現本站中有涉嫌抄襲或描述失實的內容，請聯系我們jiasou666@gmail.com 處理，核實后本網站將在24小時內刪除侵權內容。
相關文章
