[發問] 拆出數字後自動往下插列並填滿

帖子: 121
主題: 8
精華: 0
積分: 170
點名: 62
作業系統: win10
軟體版本: Office2016
閱讀權限: 20
性別: 男
註冊時間: 2021-1-21
最後登錄: 2024-8-20

8^#

發表於 2021-3-5 19:16 | 只看該作者

回復 7# jcchiang
感謝J大
完全符合需求!!

jcchiang

帖子: 234
主題: 19
精華: 0
積分: 276
點名: 0
作業系統: Windows XP
軟體版本: office 2003
閱讀權限: 20
性別: 男
註冊時間: 2013-1-7
最後登錄: 2021-10-7

7^#

發表於 2021-3-5 08:47 | 只看該作者

回復 5# shuo1125

Sub ex1()
Dim a%, x As Variant
a = 2
Do While Cells(a, 2) <> "" Or Cells(a, 5) <> ""
x = Split(Cells(a, 5), "+")
If UBound(x) > 0 Then    '判斷數值組數
   Rows(a).Offset(1).Resize(UBound(x)).Insert
   Cells(a, 5).Resize(UBound(x) + 1) = Application.Transpose(x)
   a = a + UBound(x)
End If
a = a + 1
Loop
End Sub

帖子: 121
主題: 8
精華: 0
積分: 170
點名: 62
作業系統: win10
軟體版本: Office2016
閱讀權限: 20
性別: 男
註冊時間: 2021-1-21
最後登錄: 2024-8-20

6^#

發表於 2021-3-4 21:21 | 只看該作者

回復 3# hcm19522
不好意思比較偏向寫在VB
也謝謝你~

帖子: 121
主題: 8
精華: 0
積分: 170
點名: 62
作業系統: win10
軟體版本: Office2016
閱讀權限: 20
性別: 男
註冊時間: 2021-1-21
最後登錄: 2024-8-20

5^#

發表於 2021-3-4 20:47 | 只看該作者

回復 2# jcchiang
J大不好意思想在請問一下
如果我想把拆出的數字，直接在E欄向下插列填滿(向黃標那樣)
請問用Insert要怎麼改寫...
可以再麻煩指導一下嗎
謝謝!!

1264.rar (157.48 KB)

帖子: 121
主題: 8
精華: 0
積分: 170
點名: 62
作業系統: win10
軟體版本: Office2016
閱讀權限: 20
性別: 男
註冊時間: 2021-1-21
最後登錄: 2024-8-20

4^#

發表於 2021-3-4 20:10 | 只看該作者

回復 2# jcchiang
感謝J大，可以用!
我在理解一下程式碼
有時候單懂用處邏輯也不見得寫得出來....
不知道有沒有什麼相關書籍及知識可以增加自己邏輯編寫的能力
真是佩服至極!!

https://blog.xuite.net/hcm19522/twblog/589642825

hcm19522

大學生 Rank: 4

帖子: 1387
主題: 4
精華: 0
積分: 1397
點名: 0
作業系統: WIN
軟體版本: 2007
閱讀權限: 50
性別: 男
註冊時間: 2015-9-11
最後登錄: 2024-11-24

熱烈參與勳章

3^#

發表於 2021-3-4 12:59 | 只看該作者

google"EXCEL迷" blog 或google網址:https://hcm19522.blogspot.com/

jcchiang

帖子: 234
主題: 19
精華: 0
積分: 276
點名: 0
作業系統: Windows XP
軟體版本: office 2003
閱讀權限: 20
性別: 男
註冊時間: 2013-1-7
最後登錄: 2021-10-7

2^#

發表於 2021-3-4 08:17 | 只看該作者

回復 1# shuo1125

試試看
Sub ex()
Dim a As Variant, x As Variant, y%
For Each a In Range([b2], [b65535].End(3))
If a <> "" Then
x = Split(a, "+")
[F2].Offset(y).Resize(UBound(x) + 1) = Application.Transpose(x)
y = y + UBound(x) + 1
Else
y = y + 1
End If
Next
End Sub