[已解决]帮忙修改下代码？

grf1973

1. Sub text()
   
2.     s = "shuju"
   
3.     On Error Resume Next
   
4.     arr = Range("b10:i" & [i65536].End(3).Row)
   
5.     For j = 1 To UBound(arr, 2) - 1
   
6.         xstr = ""
   
7.         For i = 1 To UBound(arr)
   
8.             If arr(i, j) <> "" Then xstr = arr(i, j)
   
9.             If arr(i, UBound(arr, 2)) <> "" Then
   
10.                 If j = 1 Then
    
11.                     p = p + 1
    
12.                     arr(i, j) = Val(xstr) + p
    
13.                 ElseIf j = 7 Then
    
14.                     k = k + 1
    
15.                     m = (k - 1) \ 2 + 1
    
16.                     n = (k - 1) Mod 2 + 1
    
17.                     arr(i, j) = s & m & n
    
18.                 Else
    
19.                     arr(i, j) = xstr
    
20.                 End If
    
21.             End If
    
22.         Next
    
23.     Next
    
24.     Range("b10:i" & [i65536].End(3).Row) = arr
    
25. End Sub

复制代码