ªð¦^¦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 : °ß¨ä´L­«¦Û¤vªº¤H¡A¤~§ó«i©óÁY¤p¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD