°a¤ªºµ

¦^´_ 2# PJChen

¦³ªÅÀ°§Ú¬Ý¤@¤U ¬O¤£¬O³o¼Ë ·PÁÂ

1. Public Sub ¤ñ¹ï¼Æ­È½m²ß()
   
2. Application.ScreenUpdating = False
   
3. 
   
4.     Arr = [A1].CurrentRegion
   
5. 
   
6.     For X = 2 To UBound(Arr, 1)
   
7.         For Y = 1 To UBound(Arr, 2)
   
8.             If Not IsNumeric(Arr(X, 5)) Then
   
9.                  Cells(X, 2) = Arr(1, 1)
   
10.             End If
    
11.         Next Y
    
12.     Next X
    
13. 
    
14. Application.ScreenUpdating = True
    
15. End Sub

½Æ»s¥N½X

°a¤ªºµ

¦^´_ 4# PJChen

§Ú¬Ý¤£¥X¨Ó >"<  ¥i¤£¥i¥H½ÐPJChen ¤j¤j®Ø°_¨Ó »¡²M·¡¤@ÂI ...  ©êºp ^^"

°a¤ªºµ

¦^´_ 7# PJChen

¦³ªÅÀ°§Ú¸Õ¸Õ¬Ý³o­Ó¬O¤£¬O§A­nªºµ²ªG  ·PÁÂ

1. Sub ¤ñ¹ï¼Æ­È½m²ß()
   
2.     Application.ScreenUpdating = False
   
3. 
   
4.     Arr = [A1].CurrentRegion
   
5.    
   
6.     For X = 2 To UBound(Arr, 1)
   
7.         If Not IsNumeric(Arr(X, 5)) And Arr(X, 2) = "" Then
   
8.             Cells(X, 2) = Arr(1, 1)
   
9.             T = Arr(1, 1) & R
   
10.             If R > 1 Then T = Mid(Arr(1, 1), 1, Len(Arr(1, 1)) - 1) & R
    
11.             Arr(1, 1) = IIf(R = 0, Arr(1, 1), T)
    
12.             If R >= 1 Then Cells(X, 2) = Arr(1, 1)
    
13.             R = R + 1
    
14.         ElseIf IsNumeric(Arr(X, 5)) And Cells(X - 1, 2) <> "" Then
    
15.             Cells(X, 2) = Arr(1, 1)
    
16.         End If
    
17.     Next X
    
18. 
    
19.     Application.ScreenUpdating = True
    
20. End Sub

½Æ»s¥N½X

°a¤ªºµ

¦^´_ 7# PJChen

­è¤~µo²{ ¥[Á`·|®t1 ©Ò¥H§ï¤F¤@¤U ¦³ªÅ¦AÀ°§Ú¬Ý¬Ý¬O¤£¬O§A­nªºµ²ªG ·PÁ   ¯¬  ~ ·s¦~§Ö¼Ö   ¸U¨Æ¦p§A(©p)·N  ~

¨Ì­q³æ_¼Ð¥Ü«È¤á0212.rar (69.92 KB)

¤U¸ü¦¸¼Æ: 7

2021-2-12 22:41

°a¤ªºµ

¦^´_ 12# ­ã´£³¡ªL

ÁÂÁ·Ǥjªº´£ÂI ³o­ÓÅÞ¿è§ó²M·¡ ¥ý¦¬¤U¤F
:)