GBKEE

¦^´_ 2# a703130
¬O³o¼Ë¶Ü?

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim xi As Integer, W As String, Rng As Range
   
4.     With Sheets("b")
   
5.         xi = 3
   
6.         Do While .Cells(xi, 5) <> ""
   
7.            If .Cells(xi, 5) Like "Test*" Then
   
8.                 W = "(" & Application.Sum(.Cells(xi, 6).Resize(, 4)) & ")"   '«á­±4Ä檺¥[Á`
   
9.                 Set Rng = Sheets("a").Range("D2")
   
10.                 Do
    
11.                    Rng.Replace .Cells(xi, 5), .Cells(xi, 5) & W     'Replace ¤èªk
    
12.                    Set Rng = Rng.Offset(1)
    
13.                 Loop While Rng<>""
    
14.             End If
    
15.             xi = xi + 1
    
16.         Loop
    
17.     End With
    
18. End Sub

½Æ»s¥N½X