返回列表 上一主題 發帖

[發問] 請問各位老師，如何使用VBA 拆分儲存格

wsx1130

帖子
51 
主題
11 
精華
0 
積分
110 
點名
0  
作業系統
win 10 
軟體版本
office 2007 
閱讀權限
20 
註冊時間
2017-7-15 
最後登錄
2024-10-27 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2022-7-23 22:54 | 只看該作者

[發問] 請問各位老師，如何使用VBA 拆分儲存格

各位大大可以將A1儲存個內容，使用VBA拆分到對應的名稱依序往下排嗎?

test1.rar (6.77 KB)

收藏 分享

samwang

帖子
976 
主題
7 
精華
0 
積分
1018 
點名
0  
作業系統
Win10 
軟體版本
Office 2016 
閱讀權限
50 
性別
男 
註冊時間
2013-4-19 
最後登錄
2025-8-22 
2#
發表於 2022-7-25 07:57 | 只看該作者
各位大大可以將A1儲存個內容，使用VBA拆分到對應的名稱依序往下排嗎?
wsx1130 發表於 2022-7-23 22:54


請測試看看，謝謝
Sub test()
Dim Arr, Brr(1 To 50000, 1 To 12), Crr, a, i&, j%
Arr = [a1]: Crr = [c1:n1]
a = Split(Arr, Chr(10))
For i = 0 To UBound(a)
    For j = 1 To UBound(Crr, 2)
        If a(i) = "" Then Exit For
        If j = 7 Then Brr(i + 1, j) = Replace((Split(Split(a(i), Crr(1, j))(1), "T")(0)), " ", ""): GoTo 99
        If j = 11 Then Brr(i + 1, j) = Replace((Split(Split(a(i), Crr(1, j))(1), "E")(0)), " ", ""): GoTo 99
        If j = 12 Then Brr(i + 1, j) = "END": GoTo 99
        Brr(i + 1, j) = Replace((Split(Split(a(i), Crr(1, j))(1), "[")(0)), " ", "")
99:  Next j
Next i
[c2].Resize(UBound(a) + 1, 12) = Brr
End Sub

TOP

Andy2483
　暱稱: 厚臉皮的學生

碩士班Rank: 5Rank: 5

帖子
1517 
主題
40 
精華
0 
積分
1541 
點名
0  
作業系統
Windows 7 
軟體版本
Excel 2010 & 2016 
閱讀權限
100 
性別
男 
來自
台灣 
註冊時間
2020-7-15 
最後登錄
2025-10-31 
3#
發表於 2022-7-26 11:12 | 只看該作者
回復 1# wsx1130


請測試看看 謝謝

Option Explicit
Sub TEST_1()
Dim Arr, Brr, a, i, j, b
a = Split([A1], Chr(10))
b = Mid([A1], 6, 1)
ReDim Brr(1 To UBound(a), 1 To 12)
For i = 0 To UBound(a) - 1
   Arr = Split(a(i), b)
   For j = 1 To 11
      Brr(i + 1, j) = Arr((j * 2 - 1))
   Next
   Brr(i + 1, 12) = "END"
Next
[C2].Resize(UBound(a), 12) = Brr
End Sub

後輩受益良多!謝謝前輩發表此主題!

TOP

        靜思自在 : 一句溫暖的話，就像往別人身上灑香水，自己會沾到兩三滴。
返回列表 上一主題