这个问题真是..EXCEL宏的问题

显示全部楼层 · 2010-11-25 18:23:38

比如现在有这么一个表
第一行：httpv3.espacenet.cominpadocpage=4
第二行：httpv3.espacenet.cominpadocpage=2
第三行：httpv3.espacenet.cominpadocpage=1
要把他变成
第一行：httpv3.espacenet.cominpadocpage=1
第二行：httpv3.espacenet.cominpadocpage=2
第三行：httpv3.espacenet.cominpadocpage=3
第四行：httpv3.espacenet.cominpadocpage=4
第五行：httpv3.espacenet.cominpadocpage=1
第六行：httpv3.espacenet.cominpadocpage=2
第七行：httpv3.espacenet.cominpadocpage=1
就是说以page后面的数字为条件，原来是1的就1条，2的话就1,2共2条这样替换
我的意思就是原数据 page=4/
就在前面插入三行变成/
page=1
page=2
page=3
page=4
原数据 page=2
就插入一行变成
page=1
page=2
请问怎么用VBA让一个表里几千条这样的数据一次性搞定
page=4
page=2
page=3
page=1
page=5
page=2
page=1
page=4
page=9
page=2
page=1
page=2
page=3
page=4

千问 · 2010-11-25 18:23:38

按ALT+F11打开VBA编辑器，插入一个模块，把如下代码放入，把光标停在代码第一行，按F5运行。Sub Macro1()For i = 1 To 50000 ' 根据列长度设置If Cells(i, 1) = "" Then End If IsNumeric(Right(Cells(i, 1), 2)) Thenx = Right(Cells(i, 1), 2)'截取从右2个字符Elsex = Right(Cells(i, 1), 1)'截取从右1个字符End IfFor j = 1 To x - 1 '循环插入行Cells(i, 1).SelectIf IsNumeric(Right(Ce

千问 · 2010-11-25 18:23:38

原表保留点数据给我看看，你需要的功能表述还没理解。