麻辣家族討論版版 » Excel程式區 » 請求支援-字串判斷,重新排列

返回列表下一主題上一主題發帖

請求支援-字串判斷,重新排列

小學生 Rank: 1

帖子: 10
主題: 3
精華: 0
積分: 11
點名: 0
作業系統: windows xp
軟體版本: sp3
閱讀權限: 10
性別: 男
來自: 台北
註冊時間: 2016-6-27
最後登錄: 2016-11-24

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2016-6-28 00:14 | 只看該作者

請求支援-字串判斷,重新排列

請教個位大大,如果a欄中有以下這些資料
abc。hello123
11 元
22 元
29 天 21 小時
aabc,defg
33 元
44 元
21 小時20分
abcfffg
55 元
1
66元
bbabcff
77 元
3
77 元
10天

想要利用判斷式,變成圖片這樣要怎麼做比較好
因為有幾千筆手動太難了
確定的是,abc是固定會出現
還有要抓取元之前的數字到abc之串之後,第一個元為b,第二個元為c

有想過用錄巨集的方式,但都會出現錯誤,或是誤刪

樓主熱帖

收藏

小學生 Rank: 1

帖子: 10
主題: 3
精華: 0
積分: 11
點名: 0
作業系統: windows xp
軟體版本: sp3
閱讀權限: 10
性別: 男
來自: 台北
註冊時間: 2016-6-27
最後登錄: 2016-11-24

2^#

發表於 2016-6-28 00:20 | 只看該作者

回復 1# simontasi
忘了說明,時間跟單純數字的儲存格需要刪除

小學生 Rank: 1

帖子: 4
主題: 1
精華: 0
積分: 18
點名: 0
作業系統: XP
軟體版本: OFFICE2010
閱讀權限: 10
註冊時間: 2016-6-28
最後登錄: 2016-8-11

3^#

發表於 2016-6-28 10:35 | 只看該作者

B1跟C1為什麼不是11跟22呢?

大學生 Rank: 4

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

熱烈參與勳章

4^#

發表於 2016-6-28 11:59 | 只看該作者

http://blog.xuite.net/hcm19522/twblog/427715445

中學生 Rank: 2

帖子: 163
主題: 1
精華: 0
積分: 170
點名: 0
作業系統: Window 7
軟體版本: Office 2007
閱讀權限: 20
性別: 男
註冊時間: 2010-9-5
最後登錄: 2022-7-20

5^#

發表於 2016-6-28 15:37 | 只看該作者

回復 1# simontasi
經整理後資料匯出B:D欄。

Sub test()
Dim arr, brr()
With ActiveSheet
.Cells.Replace ChrB(160), ""
er = .[A65536].End(3).Row
arr = .Range("A1:A" & er)
.[B1:D65536].ClearContents
End With
n = -1
For i = 1 To UBound(arr)
If InStr(arr(i, 1), "abc") <> 0 Then
n = n + 1
ReDim Preserve brr(2, n)
brr(0, n) = arr(i, 1)
c = 1
Else
If Right(arr(i, 1), 1) = "元" Then
brr(c, n) = Val(arr(i, 1))
c = c + 1
End If
End If
Next i
ActiveSheet.[B1].Resize(n + 1, 3) = Application.Transpose(brr)
End Sub

複製代碼

小學生 Rank: 1

帖子: 10
主題: 3
精華: 0
積分: 11
點名: 0
作業系統: windows xp
軟體版本: sp3
閱讀權限: 10
性別: 男
來自: 台北
註冊時間: 2016-6-27
最後登錄: 2016-11-24

6^#

發表於 2016-6-28 21:09 | 只看該作者

回復 3# chengchi1223
抱歉打錯了,是11 22沒錯

靜思自在 : 做該做的事是智慧，做不該做的事是愚癡。

返回列表下一主題上一主題