☰

Microsoft Excel - 有沒有辦法將行以一定數量的行拆分為多列？

tag-icon • tag-icon windows microsoft-excel worksheet-function microsoft-excel-2013
Microsoft Excel - 有沒有辦法將行以一定數量的行拆分為多列？

例如，我正在處理與客戶的各種資訊相關的數據，這些數據包含有關客戶的各種資訊。 並繼續與 1,000 名客戶合作。現在，我需要將這些行分成 400 行，並將它們分配到新的電子表格中，以便我可以將它們上傳到簡訊軟體，以便發送更新和其他活動。 Name | email| Phone Guy [email protected] 50230

有什麼有效的方法可以解決這個問題嗎？通常我會手動執行此操作並向下捲動，直到達到 400，然後選擇其餘的列。但這往往相當耗時。那麼有什麼建議嗎？

答案1

除非已經有一個 400 個不同的群組，並用類似空白的東西標記，否則我認為很難找到用於此特定任務的內建函數。
但是，您可以使用巨集來製作自己的巨集。

因此，如果我正確理解你的範例，你可以選擇儲存格，然後向下選擇 400 行，然後選擇全部，再加上兩列。在巨集中執行此操作的最簡單方法應該是： 

Sub select400()
selection.Resize(400, 3).Select
End Sub

然後，您可以透過轉到巨集視窗和選項或在另一個巨集的幫助下為該巨集指派捷徑。

但是，如果您不想要一定數量的行或列怎麼辦？
然後您可以用輸入框和變數替換絕對值，如下所示：

Sub select400()
Dim inpRows As Long, inpColumns As Long
inpRows = InputBox("How many rows to select?")
inpColumns = InputBox("How many columns to select?")
selection.Resize(inpRows, inpColumns).Select
End Sub

雖然因為它有InputBox，但它應該有適當的錯誤處理。如果框中寫入任何奇怪的內容（或根本沒有寫入任何內容），它就會崩潰。

樣本：

在此輸入影像描述

我也先運行了這個：

Sub setShortcut()
Application.OnKey "%{s}", "select400"
End Sub

將我的巨集設定為在按 ALT + s 時運行

您可以透過讓巨集查找 400、切入新的工作表/工作簿，然後繼續使用新工作表，直到用完資料來進一步擴展自動化。

這有點技術性，但可以透過一兩個循環來完成。

相關內容