12
返回列表 上一主題 發帖

[發問] 簡單組合問題。

samwang

帖子
976 
主題
7 
精華
0 
積分
1018 
點名
0  
作業系統
Win10 
軟體版本
Office 2016 
閱讀權限
50 
性別
男 
註冊時間
2013-4-19 
最後登錄
2023-9-21 
11# 跳轉到 »
發表於 2021-6-5 12:25 | 只看該作者
回復 10# stephenlee

請測試看看，謝謝。

Sub test()
Dim Arr, a, a1
Arr = Range("A2:A" & [A65536].End(3).Row)
For i = 1 To UBound(Arr)
    a = Split(Arr(i, 1), "-")(0)
    a1 = Split(Arr(i, 1), "-")(1)
    If a = a1 Then Arr(i, 1) = a
Next
Range("B2").Resize(UBound(Arr)).NumberFormatLocal = "@"
Range("B2").Resize(UBound(Arr)) = Arr
End Sub

TOP

stephenlee

帖子
63 
主題
32 
精華
0 
積分
125 
點名
0  
作業系統
WIn10 
軟體版本
OFFICE2013 
閱讀權限
20 
註冊時間
2018-7-19 
最後登錄
2022-8-11 
12#
發表於 2021-6-5 13:14 | 只看該作者
回復  stephenlee

請測試看看，謝謝。

Sub test()
Dim Arr, a, a1
Arr = Range("A2:A" & [A65536] ...
samwang 發表於 2021-6-5 12:25



  這個也是完全符合要求,完美解決了我所需的問題。 非常感激大大一直幫忙,幫我節省了處理資料的時間,十分感謝。

題外話:  大大真的很強。

TOP

        靜思自在 : 有時當思無時苦，好天要積雨來糧。
12
返回列表 上一主題