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

[µo°Ý] ➽➽½Ð°Ý¦p¦ó§R°£(«e­±¤T½Xªº¼Æ¦r)

[µo°Ý] ➽➽½Ð°Ý¦p¦ó§R°£(«e­±¤T½Xªº¼Æ¦r)

¦p¦ó§R°£(¼Æ¦rªº«e­±¤T½X)

§Ú¦³¤@°ï¼Æ¦r
§R°£«e­±¤T½Xªº¼Æ¦r
½Ð°Ý§Ú¸Ó«ç»ò³B²z

¥i¥H°µ¦¨VBA°µ¦¨¶Ü??
©Î¬O¦p¦ó³B²z

«D±`·PÁ¤j®aÀ°¦£,ÁÂÁÂ

ªþ¤W»¡©ú¹Ï¤ù

»¡©úÀÉ®×

Q.jpg
2020-10-26 02:02


ªþ¤WÀÉ®×
Q1.rar (22.27 KB)
¾Ç²ß ¾Ç²ß ¤@ª½¾Ç²ß

¦^´_ 1# peter95

Sub ex()
Dim a As Object
Dim x%, QQ%
For Each a In Range([D10], [O10].End(4))
   For x = 1 To Len(a)
      If IsNumeric(Mid(a, x, 1)) = True Then QQ = QQ + 1
      If QQ = 3 Then a.Value = WorksheetFunction.Replace(a, 1, x, ""): QQ = 0: Exit For
   Next
Next

TOP

¦^´_ 2# jcchiang


·PÁ¤j¤jÀ°¦£
¸Ñ¨M§xÂZ§Ú«Ü¤[ªº°ÝÃD

²{¦bÅܱo¦n»´ÃP
·PÁÂ
¾Ç²ß ¾Ç²ß ¤@ª½¾Ç²ß

TOP

¦^´_ 1# peter95
  1. Sub tt()
  2. Dim Arr, i&
  3.     Arr = Range("D10:O" & Range("D10").End(4).Row)
  4.     For i = 1 To UBound(Arr)
  5.         For j = 1 To UBound(Arr, 2)
  6.             If InStr(Arr(i, j), "-") > 0 Then
  7.                 Arr(i, j) = Val(Trim(Mid(Arr(i, j), 6, 7)))
  8.             Else
  9.                 Arr(i, j) = Val(Trim(Mid(Arr(i, j), 5, 7)))
  10.             End If
  11.         Next
  12.     Next
  13.     Range("D10").Resize(UBound(Arr), UBound(Arr, 2)) = Arr
  14. End Sub
½Æ»s¥N½X

TOP

Sub TEST()
Dim Arr, R&, T$, C&, K%
With Range([D10], [O65536].End(3))
     Arr = .Value
     For C = 1 To .Columns.Count
     For R = 1 To .Rows.Count
         T = Arr(R, C)
         If T Like "*.*.*" Then Arr(R, C) = Mid(T, IIf(Left(T, 1) = "-", 6, 5)): K = 1
     Next R
     Next C
     If K = 1 Then .Value = Arr
End With
End Sub

TOP

ÀH·NºÛ "EXCEL°g"  blog  ©Îhttps://hcm19522.blogspot.com/ EXCEL¨ç¼Æ

TOP

·PÁ¤j®aÀ°¦£¡A¤w¸Ñ¨M
·P®¦
¾Ç²ß ¾Ç²ß ¤@ª½¾Ç²ß

TOP

ÁÂÁ½׾Â,ÁÂÁ¦U¦ì«e½ú
«á¾ÇÂǦ¹©«½m²ß°}¦C,¾Ç²ß¤è®×¦p¤U,½Ð¦U¦ì«e½ú«ü±Ð

°õ¦æµ²ªG:
20230602_1.jpg
2023-6-2 11:44



Option Explicit
Sub TEST_1()
Dim Brr, i&, j%, xA As Range
'¡ô«Å§iÅܼÆ
Set xA = Range([D10], [O65536].End(3)): Brr = xA
'¡ô¥OxAÅܼƬOD~OÄæÀx¦s®æ,¥OBrrÅܼƬO ¤Gºû°}¦C,¥HxAÅܼƭȱa¤J
For i = 1 To UBound(Brr)
'¡ô³]°}¦CÁa¦V°j°é
   For j = 1 To UBound(Brr, 2)
   '¡ô³]°}¦C¾î¦V°j°é
      Brr(i, j) = Mid(Replace(Brr(i, j), "-", ""), 5)
      '¡ô¥O°}¦C­È¥h°£"-"«á,¨ú²Ä5¦r(§t)«áªº¦r¦ê
   Next
Next
xA = Brr
'¡ô¥OxAÅܼƭȬO Brr°}¦C­È
Set xA = Nothing: Erase Brr
'¡ô¥OÄÀ©ñÅܼÆ
End Sub
¥Î¦æ°Ê¸Ë¸mÂsÄý½×¾Â¾Ç²ß«Ü¤è«K,ÁÂÁ½׾¸gÀç¹Î¶¤
½Ð¤j®a¤@°_¤W½×¾Â¨Ó¥æ¬y

TOP

        ÀR«ä¦Û¦b : ½_ÁJµ²±o¶V¹¡º¡¡A¶V·|©¹¤U««¡A¤@­Ó¤H¶V¦³¦¨´N¡A´N­n¶V¦³Á¾¨Rªº¯ÝÃÌ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD