[已解决]用VBA编写序号

cyj153

VBA编写序号.rar (2.41 KB, 下载次数: 33)

2012-5-19 13:26 上传

点击文件名下载附件
谢谢！

最佳答案

月排行榜 / 总排行榜

ws278106483

2012-5-19 15:51

附件跟上，看一下，对不对呢？》

跳转到最佳答案楼层

ws278106483

楼主，你说的意思是不是就是想要b列a后面的数字，做为他的序列号啊？

ws278106483

空格是什么意思？

ws278106483

根据b列内容，给a列编上序号。
但是我看了一上，A 列的内容和B列中的数据有的相等，有的不相等

ws278106483

我写了个公式，你看一下，对不对？

cyj153

ws278106483 发表于 2012-5-19 13:55
我写了个公式，你看一下，对不对？

谢谢，当B列有数据，A列才给编号，空格无需编号。（效果以A列）

ws278106483

1. Sub bh()
   
2. Dim x, y As Integer
   
3.   y = Range("B65536").End(xlUp).Row
   
4.   For x = 2 To y Step 1
   
5.      If Range("B" & x) <> "" Then
   
6.        i = i + 1
   
7.        Range("A" & x) = i
   
8.      End If
   
9.   Next x
   
10. End Sub
    

复制代码

看一上是不是这样子的啊？

ws278106483

附件跟上，看一下，对不对呢？》

ws278106483

点下按钮就可以了。