亞寵展、全球?qū)櫸锂a(chǎn)業(yè)風(fēng)向標(biāo)——亞洲寵物展覽會(huì)深度解析
343
2025-03-31
如何在Excel中每隔一行拆分一列？
如何在Excel中每隔一行拆分一列？
例如，我有很長的數(shù)據(jù)列表，現(xiàn)在，我想按每隔一行將列平均分為兩個(gè)列表，如下面的屏幕截圖所示。 有什么好的方法可以在Excel中處理此任務(wù)？
用公式每隔一行拆分一列
用VBA代碼每隔一行拆分一列
每隔一行拆分一列 Kutools for Excel
以下公式可以幫助您快速將一列按每隔一行分成兩列，請(qǐng)執(zhí)行以下操作：
1。 例如，將此公式輸入到空白單元格C2中， =INDEX($A:$A,ROWS(C:C1)*2-1)，請(qǐng)看截圖：
2。 然后向下拖動(dòng)填充手柄，直到錯(cuò)誤顯示在單元格中，請(qǐng)參見屏幕截圖：
3。 然后在單元格D2中輸入另一個(gè)公式， =INDEX($A:$A,ROWS(D:D1)*2)，然后將填充手柄向下拖動(dòng)到單元格，直到出現(xiàn)錯(cuò)誤值，并且列值每隔一行被分為兩列，請(qǐng)參見屏幕截圖：
用VBA代碼每隔一行拆分一列如果您對(duì)VBA代碼感興趣，在這里，我可以為您討論解決此問題的代碼。
1。 按住 ALT + F11 鍵，然后打開 Microsoft Visual Basic應(yīng)用程序 窗口。
2。 點(diǎn)擊 插頁 > 模塊，然后將以下代碼粘貼到 模塊 窗口。
VBA代碼：每隔一行將一列分為兩列
Sub SplitEveryOther()
Updateby Extendoffice
Dim Rng As Range
Dim InputRng As Range, OutRng As Range
Dim index As Integer
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)
Set OutRng = OutRng.Range("A1")
num1 = 1
num2 = 1
For index = 1 To InputRng.Rows.Count
If index Mod 2 = 1 Then
OutRng.Cells(num1, 1).Value = InputRng.Cells(index, 1)
num1 = num1 + 1
Else
OutRng.Cells(num2, 2).Value = InputRng.Cells(index, 1)
num2 = num2 + 1
End If
Next
End Sub
Copy
3。 然后按 F5 鍵來運(yùn)行此代碼，然后會(huì)彈出一個(gè)提示框，提醒您選擇要拆分的數(shù)據(jù)范圍，請(qǐng)參見屏幕截圖：
4。 并點(diǎn)擊 OK，彈出另一個(gè)提示框，讓您選擇要放入結(jié)果的單元格，請(qǐng)參見屏幕截圖：
5。 然后點(diǎn)擊 OK，并且該列已被每隔一行分成兩列。 看截圖：
每隔一行拆分一列 Kutools for Excel如果您想了解更多新事物，我可以推薦一個(gè)功能強(qiáng)大的工具-Kutools for Excel，其 變換范圍 實(shí)用程序，您可以快速將單個(gè)行或列轉(zhuǎn)換為一系列單元格，反之亦然。
Kutools for Excel : 帶有300多個(gè)便捷的Excel加載項(xiàng)，可以在30天內(nèi)免費(fèi)試用.前往下載30天免費(fèi)試用購買貝寶/ MyCommerce
安裝后 Kutools for Excel，請(qǐng)執(zhí)行以下操作：免費(fèi)下載 Kutools for Excel 現(xiàn)在 )
1。 選擇要每隔一行分成兩列的列數(shù)據(jù)。
2。 然后點(diǎn)擊 Kutools > Range > 變換范圍，請(qǐng)參見屏幕截圖：
3。 在 變換范圍 對(duì)話框中選擇 單列到范圍 在下面 轉(zhuǎn)換類型，然后選擇 固定值 并進(jìn)入 2 放入盒子里 每條記錄行 部分，請(qǐng)參見屏幕截圖：
4。 然后點(diǎn)擊 Ok 按鈕，將彈出一個(gè)提示框，提醒您選擇要輸出結(jié)果的單元格，請(qǐng)參見屏幕截圖：
5。 點(diǎn)擊 OK，列表數(shù)據(jù)每隔一行被分為兩列。
單擊以了解有關(guān)此“變換范圍”實(shí)用程序的更多信息。
免費(fèi)下載 Kutools for Excel 現(xiàn)在
最佳辦公生產(chǎn)力工具
將小時(shí)轉(zhuǎn)化為分鐘 Kutools for Excel!
準(zhǔn)備好增強(qiáng)您的 Excel 任務(wù)了嗎？ 利用的力量 Kutools for Excel - 您終極的節(jié)省時(shí)間的工具。 簡化復(fù)雜的任務(wù)并像專業(yè)人士一樣瀏覽數(shù)據(jù)。 以閃電般的速度體驗(yàn) Excel！
為什么需要 Kutools for Excel
??? 超過 300 項(xiàng)強(qiáng)大功能: Kutools 包含 300 多項(xiàng)高級(jí)功能，可簡化您在 1500 多種場(chǎng)景中的工作。
?? 卓越的數(shù)據(jù)處理能力：合并單元格、刪除重復(fù)項(xiàng)并執(zhí)行高級(jí)數(shù)據(jù)轉(zhuǎn)換 - 所有這些都不費(fèi)吹灰之力！
?? 高效的批量操作：當(dāng)你可以聰明地工作時(shí)，為什么還要付出額外的努力呢？ 輕松批量導(dǎo)入、導(dǎo)出、組合和調(diào)整數(shù)據(jù)。
?? 可定制的圖表和報(bào)告：訪問各種附加圖表并生成富有洞察力的報(bào)告。
??? 強(qiáng)大的導(dǎo)航窗格：通過強(qiáng)大的列管理器、工作表管理器和自定義收藏夾獲得優(yōu)勢(shì)。
?? 七種類型的下拉列表：通過各種功能和類型的下拉列表使數(shù)據(jù)輸入變得輕而易舉。
?? 用戶友好：對(duì)于初學(xué)者來說輕而易舉，對(duì)于專家來說是一個(gè)強(qiáng)大的工具。
立即下載，與 Excel 一起穿越時(shí)空！
閱讀更多
免費(fèi)下載... 采購...
Office Tab 為 Office 帶來選項(xiàng)卡式界面，讓您的工作更輕松
在Word，Excel，PowerPoint中啟用選項(xiàng)卡式編輯和閱讀，發(fā)布者，Access，Visio和Project。
在同一窗口的新選項(xiàng)卡中而不是在新窗口中打開并創(chuàng)建多個(gè)文檔。
每天將您的工作效率提高50％，并減少數(shù)百次鼠標(biāo)單擊！
閱讀更多
免費(fèi)下載... 采購...
版權(quán)聲明：本文內(nèi)容由網(wǎng)絡(luò)用戶投稿，版權(quán)歸原作者所有，本站不擁有其著作權(quán)，亦不承擔(dān)相應(yīng)法律責(zé)任。如果您發(fā)現(xiàn)本站中有涉嫌抄襲或描述失實(shí)的內(nèi)容，請(qǐng)聯(lián)系我們jiasou666@gmail.com 處理，核實(shí)后本網(wǎng)站將在24小時(shí)內(nèi)刪除侵權(quán)內(nèi)容。
版權(quán)聲明：本文內(nèi)容由網(wǎng)絡(luò)用戶投稿，版權(quán)歸原作者所有，本站不擁有其著作權(quán)，亦不承擔(dān)相應(yīng)法律責(zé)任。如果您發(fā)現(xiàn)本站中有涉嫌抄襲或描述失實(shí)的內(nèi)容，請(qǐng)聯(lián)系我們jiasou666@gmail.com 處理，核實(shí)后本網(wǎng)站將在24小時(shí)內(nèi)刪除侵權(quán)內(nèi)容。
相關(guān)文章
