紧急求助，在人员统计报表时遇到一个难题，求大家帮忙。

回忆那时12

蓝桥玄霜 发表于 2018-6-8 09:02
请见代码。

都是大神啊膜拜

sirsunny

追加问一下，如果输入的不是1,2,3,4，而是甲乙丙丁，应该怎么处理呢？看嵌套循环看晕了。

vbee

可以用RANGE   REPLACE

sirsunny

vbee 发表于 2018-6-8 10:09
可以用RANGE   REPLACE

我在工作表里用IF公式改了。但是感觉不如直接在VBA里做这么高级。

vbee

1. Sub JJJ()
   
2.   On Error Resume Next
   
3.   r = Range("a10000").End(3).Row
   
4.   ARR = Range("A1:B1").Resize(r)
   
5.   For I = 1 To UBound(ARR)
   
6.     For J = 1 To 4
   
7.       If ARR(I + J + 1, 1) <> ARR(I + J, 1) Then
   
8.         For JJ = 1 To J
   
9.           If J >= 3 Then ARR(I + JJ, 2) = JJ Else ARR(I + JJ, 2) = JJ + 2
   
10.         Next JJ
    
11.         Exit For
    
12.       End If
    
13.     Next J
    
14.     I = I + J - 1
    
15.   Next I
    
16.   Range("A1:B1").Resize(r) = ARR
    
17.   
    
18.   Range("B1").Resize(r).Replace "1", "甲"
    
19.   Range("B1").Resize(r).Replace "2", "乙"
    
20.   Range("B1").Resize(r).Replace "3", "丙"
    
21.   Range("B1").Resize(r).Replace "4", "丁"
    
22. End Sub
    

复制代码

yumohengfei

C:\Users\Administrator\Desktop\2018-06-09_110800.JPG