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

½Ð°Ý¦p¦ó­pºâ¥[Á`¥X¤H¦W+¼Æ¦r=¼Æ¦rÁ`¦X

½Ð°Ý¦p¦ó­pºâ¥[Á`¥X¤H¦W+¼Æ¦r=¼Æ¦rÁ`¦X

½Ð°Ý¦p¦ó­pºâ¥[Á`¥X¤H¦W+¼Æ¦r=¼Æ¦rÁ`¦X.jpg
2022-11-1 15:27

¦^´_ 1# ªü¦t­ô

ÁÂÁ«e½úµoªí¦¹¥DÃD
«á¾ÇÂǦ¹ÃD½m²ßVBA_°}¦C»P¦r¨å!
¤£ª¾¹D¬O§_·|¿ùÃD·N?
½d¨Ò½Ð¸Õ¸Õ¬Ý!
20221102_4.zip (52.15 KB)

°õ¦æ«e:
2022-11-02_083709.JPG
2022-11-2 09:21


°õ¦æµ²ªG:
2022-11-02_083725.JPG
2022-11-2 09:22


Option Explicit
Sub ¦r¨å»P°}¦C½m²ß()
Dim Brr, Crr, c&, i&, x&, xR, Y, U, ERR&
Set Y = CreateObject("Scripting.Dictionary")
Brr = Range([¾Þ§@ªí!B2], [¾Þ§@ªí!B65536].End(3))
For i = 1 To UBound(Brr)
   If Trim(Brr(i, 1)) = "" Then ERR = 1: GoTo 111
   Crr = Split(Trim(Brr(i, 1)), " ")
   U = Trim(Crr(0)) & Y(Trim(Crr(0)) & i)
   Crr = Split(Replace((Brr(i, 1)), " ", ""), U)
   If UBound(Crr) <= 1 Then ERR = 1: GoTo 111
   For x = UBound(Crr) To 2 Step -1
      If IsNumeric(Trim(Crr(x))) = False Then
         ERR = 1: GoTo 111
      End If
      Y(U & i) = Y(U & i) + Val(Trim(Crr(x)))
   Next
Next

111
If ERR = 1 Then
   Cells(i + 1, 2).Activate
   ActiveCell.Interior.ColorIndex = 38
   MsgBox "½ÐÀˬd¸ê®Æ!"
   Exit Sub
End If
[C2].Resize(Y.Count, 1) = Application.Transpose(Y.ITEMS)
End Sub

TOP

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

TOP

        ÀR«ä¦Û¦b : ¤Hªº¤ß¦a¬O¤@²¥¥Ð¡A¤g¦a¨S¦³¼½¤U¦nºØ¤l¡A¤]ªø¤£¥X¦nªºªG¹ê¡C -
ªð¦^¦Cªí ¤W¤@¥DÃD