[已解决]如何使用VBA按规则插入数据

angelshadow

请高人帮个忙？遇到了个难题！

最佳答案

月排行榜 / 总排行榜

ligh1298

2013-7-31 06:49

不知是不是这个意思？

1. Sub A列随B列递增()
   
2. Dim i%, arr
   
3. Range("a:a").ClearContents
   
4. arr = Range("a3:b" & [b65536].End(3).Row)
   
5. For i = 1 To UBound(arr)
   
6. If arr(i, 2) <> "" Then
   
7. r = r + 1
   
8. Cells(i + 2, 1) = "'4/" & 20 + r
   
9. End If
   
10. Next
    
11. End Sub
    

复制代码

跳转到最佳答案楼层

angelshadow

说明动画，这个还清楚点。

ligh1298

不知是不是这个意思？

1. Sub A列随B列递增()
   
2. Dim i%, arr
   
3. Range("a:a").ClearContents
   
4. arr = Range("a3:b" & [b65536].End(3).Row)
   
5. For i = 1 To UBound(arr)
   
6. If arr(i, 2) <> "" Then
   
7. r = r + 1
   
8. Cells(i + 2, 1) = "'4/" & 20 + r
   
9. End If
   
10. Next
    
11. End Sub
    

复制代码

sliang28

先问两个问题：
1、B列没有数据的，A列如果处理？
2、比如说A3有数据，A4没有数据如何处理？也就是说A列不全部为空，该如何处理？