需要將 Excel 工作表中的每一行批量製作為單獨的樣式 Excel 工作表嗎？ 40

子拆分 **（）。

dim wb as workbook, c as integer, filename as string

falsewith thisworkbook

filename = & "分片。

filename)

for c = 2 to [a65536].end(3).rowa = cells(2, c).text

set wb =

a1")filename & "/" & cells(c,2) &".xlsx" '以電台編號命名檔案。

nextend with

truemsgbox "拆分完成 -"

end sub

要用VBA**拿到，**60元。

假設您的 20 行位於“表 0”中。

sub addworksheetafterlast()on error resume next

for i=1 to 20

worksheets( = "桌子" & iworksheets("桌子" & i).rows("1")=worksheets("表 0").rows(i).value

next i

end sub

使用巨集，這個工具使之成為可能。

您好回答，我已經看到了您的問題哈 現在我正在為您手動回覆內容，但需要一點時間，請耐心等待，謝謝哈 我在這裡祝您虎年繁榮

你還有什麼問題想回答你嗎？

源資料的第乙個表分片 1（必須命名為 1）。

a1=index（源資料複製到右側。

重複的表 1 重新命名為 ......完成。 工作簿必須儲存公式才能生效。

將工作表拆分為工作簿需要巨集。

在 Excel 中，按 Alt+F11 檢視 --** 視窗，將以下內容複製到其中，然後按 F5 執行。

請把這個excel放到乙個資料夾裡操作，預設生成到當前資料夾的效果如下：

可以使用函式方法或 VBA。

函式方法是匹配對應行的資料，然後列印出來。

另一方面，VBA 可以一次完成所有操作。

生成乙個可以嘗試的附件、、、

可以做到，請將原始表格並請求傳送至：

在選單欄中查詢資料 - 過濾器 - 自動過濾器。

使用巨集真的很快，你可以自己寫乙個。

您可以使用郵件合併，但您需要使用 word，並在 word 中製作表格。 然後使用郵件合併，檔案來自excel原始檔！ 最後列印在Word中。

如果你還是不明白，可以把**發給我，我幫你做。 它可以在 10 分鐘內完成。

我可以幫你，加我為朋友。 QQ聯絡方式。

郵件合併，怎麼做，太多了，自己可以上網查一下。