請等壹會兒VBA電碼。
代碼出來了:
子分割輸出()
暗淡排列
set DIC 1 = CreateObject(" scripting . dictionary ")
arr = ActiveSheet。範圍(" g 1:H " & amp；單元格(65536，7)。結束(3)。排)。價值
對於i = 1到UBound(arr，1)
dpts = Split(arr(i，2)，"，")
對於dpts中的每個dpt
如果dpt & lt& gt”“那麽dic1。Item(dpt) = dic1。項目(dpt)和Chr(10)arr(i，1)
然後
然後
設置arr =無
dk = dic1.keys
dt = dic1.items
n = dic1。計數- 1
設置dic1 =無
Set fs = CreateObject("腳本。文件系統對象”)
MyPath = "D:\分類"
如果不是fs。FolderExists(myPath) Then fs。創建文件夾myPath
設置fld = fs。獲取文件夾(我的路徑)
對於i = 0至n
設a = fld。create textfile(" _ " & amp；dk(i)和".txt "，True)
arr = Split(Mid(dt(i)，2)，Chr(10))
對於arr中的每個nb
a.寫線nb
然後
a.關閉
然後
設置fld =無
設置fs =無
末端接頭