[已解决]怎么填充数据？

adsfff

怎么按G列数据填充H列数据，详见附件。

最佳答案

月排行榜 / 总排行榜

grf1973

2014-11-11 16:05

请看附件。

跳转到最佳答案楼层

爱疯

为什么K11是XYZ6291？

为什么K13是XYZ6301？

QLZ0602

="XYZ"&6280+IF(COUNTIF($G$11:$G$28,G11)>1,COUNTIF($G$11:$G11,G11),0)+SUM((MATCH(G$11:G11,$G$11:$G$28,)=ROW(G$11:G11)-10)*10)

数组公式  ctrl+shift+enter

如有不明 qq 695982239

grf1973

1. Sub tt()
   
2.     arr = [g10].CurrentRegion
   
3.     Set d = CreateObject("scripting.dictionary")
   
4.     Set d1 = CreateObject("scripting.dictionary")
   
5.     a = 628
   
6.     For i = 2 To UBound(arr)
   
7.         x = arr(i, 1)
   
8.         If Not d.exists(x) Then k = k + 1: d1(x) = a + k
   
9.         d(x) = d(x) + 1
   
10.         arr(i, 2) = "XYZ" & d1(x) & d(x)
    
11.     Next
    
12.     For i = 2 To UBound(arr)
    
13.         x = arr(i, 1)
    
14.         If d(x) = 1 Then Mid(arr(i, 2), Len(arr(i, 2)), 1) = "0"
    
15.     Next
    
16.     [g10].CurrentRegion = arr
    
17. End Sub
    

复制代码

grf1973

请看附件。

adsfff

grf1973 发表于 2014-11-11 13:45
请看附件。

前3位是字母，后4位是数字，能不能再改下？

grf1973

“编号2最下面的数据”位于何处？附件里看不出。编号2对应列的最后一行？

zyouong

L11
{="XYZ"&6290+IF(COUNTIF($J$11:$J$28,J11)>1,COUNTIF($J$11:J11,J11),0)+SUM(($J$10:$J10<>$J$11:$J11)*10)-10}

adsfff

grf1973 发表于 2014-11-11 13:59
“编号2最下面的数据”位于何处？附件里看不出。编号2对应列的最后一行？

下面空白区域填充，要按H列最后一行数据填充

adsfff

顶下！！！