[已解决]用VBA改一下

hvail

老师帮我用VBA改一下
根据C列不等于空的
A列等于C列组合F列
删除A列重复

最佳答案

月排行榜 / 总排行榜

ws278106483

2012-7-20 16:38

1. 
   
2. <P>Sub test()
   
3. Dim x As Integer
   
4. x = Worksheets.Count</P>
   
5. <P>Dim i%
   
6. For x = 1 To x
   
7. For i = 1 To [C65536].End(3).Row
   
8. If Sheets(x).Cells(i, 3) <> "" Then
   
9. Sheets(x).Cells(i, 1) = Sheets(x).Cells(i, 3) & Sheets(x).Cells(i, 6)
   
10. End If
    
11. Next i, x</P>
    
12. <P>End Sub</P>
    
13. <P>
    
14. </P>

复制代码

跳转到最佳答案楼层

hvail

Sub test()
Dim i As Variant
For Each rng In Range("C1", [C65536].End(3))
If i <> "" Then
Range("A:a") = Range(i & "F:f")
End If
Next
End Sub
'咋不行呀

lzclzch

Sub test()
Dim i%
For i = 1 To [C65536].End(3).Row
If Cells(i, 3) <> "" Then
Cells(i, 1) = Cells(i, 3) & Cells(i, 6)
End If
Next
End Sub

hvail

lzclzch 发表于 2012-7-20 16:21
Sub test()
Dim i%
For i = 1 To [C65536].End(3).Row

老师帮我改一下让他历遍全部SHEET

ws278106483

1. 
   
2. <P>Sub test()
   
3. Dim x As Integer
   
4. x = Worksheets.Count</P>
   
5. <P>Dim i%
   
6. For x = 1 To x
   
7. For i = 1 To [C65536].End(3).Row
   
8. If Sheets(x).Cells(i, 3) <> "" Then
   
9. Sheets(x).Cells(i, 1) = Sheets(x).Cells(i, 3) & Sheets(x).Cells(i, 6)
   
10. End If
    
11. Next i, x</P>
    
12. <P>End Sub</P>
    
13. <P>
    
14. </P>

复制代码

hvail

ws278106483 发表于 2012-7-20 16:38

SHEET.COUNT 是不是历遍的意思呀

ws278106483

hvail 发表于 2012-7-20 16:47
SHEET.COUNT 是不是历遍的意思呀

嗯，是的。加个循环  就可以了。

hhl1984

想问一下</P>是什么意思哦

ws278106483

hhl1984 发表于 2012-7-20 17:25
想问一下是什么意思哦

网页系统自动生成的，没什么的。