ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] ²³æ²Õ¦X°ÝÃD¡C

¦^´_ 10# stephenlee

½Ð´ú¸Õ¬Ý¬Ý¡AÁÂÁ¡C

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

½Ð´ú¸Õ¬Ý¬Ý¡AÁÂÁ¡C

Sub test()
Dim Arr, a, a1
Arr = Range("A2:A" & [A65536] ...
samwang µoªí©ó 2021-6-5 12:25



  ³o­Ó¤]¬O§¹¥þ²Å¦X­n¨D,§¹¬ü¸Ñ¨M¤F§Ú©Ò»Ýªº°ÝÃD¡C «D±`·P¿E¤j¤j¤@ª½À°¦£,À°§Ú¸`¬Ù¤F³B²z¸ê®Æªº®É¶¡,¤Q¤À·PÁ¡C

ÃD¥~¸Ü:  ¤j¤j¯uªº«Ü±j¡C

TOP

        ÀR«ä¦Û¦b : ·R¤£¬O­n¨D¹ï¤è¡A¦Ó¬O­n¥Ñ¦Û¨­ªº¥I¥X¡C
ªð¦^¦Cªí ¤W¤@¥DÃD