修改代码

ddz79101

老师！我想对三列单元格去重，其中用了一句：    For Each rng In Range("c2:c,d2:d,f2:f" & [f65536].End(3))
，提示错误，请问这样用可以吗？不行怎么修改。谢谢

shiruiqiang

Range("c2:f" & [f65536].End(3))

gwjkkkkk

电费发票号码应该两个，模拟结果应该不对吧？

yynrzwh

[f65536].End(3)
这个应该是最后的单元格，
取行号是[f65536].End(3).row

ddz79101

gwjkkkkk 发表于 2024-10-5 11:41
电费发票号码应该两个，模拟结果应该不对吧？

老师你说的对的，我错了，应该2个号码一样

ddz79101

shiruiqiang 发表于 2024-10-5 11:39
Range("c2:f" & [f65536].End(3))

老师！按你意思修改了，还不行！何况E列包含中间

ddz79101

yynrzwh 发表于 2024-10-5 12:04
[f65536].End(3)
这个应该是最后的单元格，
取行号是[f65536].End(3).row

老师！按你意思修改了，行！刚发错了！谢谢

taller

1. Option Explicit
   
2. ' 不考虑第9行数据发票号不同的情况，不需要使用字典对象
   
3. Sub Demo()
   
4.     Dim i As Long, j As Long
   
5.     Dim arrData, rngData As Range
   
6.     Dim arrRes, iR As Long
   
7.     Dim LastRow As Long, aCol
   
8.     aCol = Array(0, 1, 3)
   
9.     Set rngData = ActiveSheet.Range("A1").CurrentRegion
   
10.     arrData = rngData.Value
    
11.     For i = LBound(arrData) To UBound(arrData)
    
12.         If InStr(1, arrData(i, 3), ",") > 0 Then
    
13.             For j = 0 To UBound(aCol)
    
14.                 arrData(i, 3 + aCol(j)) = Split(arrData(i, 3 + aCol(j)), ",")(0)
    
15.             Next
    
16.         End If
    
17.     Next i
    
18.     Sheets.Add
    
19.     rngData.Copy Range("A1")
    
20.     Range("A1").CurrentRegion.Value = arrData
    
21. End Sub
    
22. 
    

复制代码

gwjkkkkk

。。。。。。。

ddz79101

taller 发表于 2024-10-5 12:55

谢谢老师！运行成功