[已解决]请用vba做纽扣

喜欢电子表格

下行2.zip (13.13 KB, 下载次数: 12)

2013-2-17 16:38 上传

点击文件名下载附件 多谢你的帮助

最佳答案

月排行榜 / 总排行榜

fjmxwrs

2013-2-17 17:09

下行2.zip (19.09 KB, 下载次数: 29)

2013-2-17 17:12 上传

点击文件名下载附件
要用宏完成，为什么不保存为启用宏的工作簿，

跳转到最佳答案楼层

fjmxwrs

下行2.zip (19.09 KB, 下载次数: 29)

2013-2-17 17:12 上传

点击文件名下载附件
要用宏完成，为什么不保存为启用宏的工作簿，

那么的帅

1. Sub test()
   
2.     With Sheets("sheet1")
   
3.         ROW1 = .Range("A" & .Rows.Count).End(xlUp).Row
   
4.         ARR1 = .Range("J1:DC" & ROW1)
   
5.         For J = 1 To UBound(ARR1, 2) Step 3
   
6.             K = 0
   
7.             For I = 1 To UBound(ARR1)
   
8.                 If ARR1(I, J) = "" Then
   
9.                     K = K + 1
   
10.                 Else
    
11.                     K = 0
    
12.                 End If
    
13.                 ARR1(I, J + 1) = K
    
14.             Next I
    
15.         Next J
    
16.         .Range("J1").Resize(UBound(ARR1), UBound(ARR1, 2)) = ARR1
    
17.     End With
    
18. End Sub

复制代码

喜欢电子表格

fjmxwrs 发表于 2013-2-17 17:09
要用宏完成，为什么不保存为启用宏的工作簿，

非常感谢，请你吧这个宏设置成操作2000行，因为我的表格很多。

喜欢电子表格

那么的帅 发表于 2013-2-17 17:59

非常感谢----------------------------------------------

fjmxwrs

喜欢电子表格 发表于 2013-2-17 18:27
非常感谢，请你吧这个宏设置成操作2000行，因为我的表格很多。

你就是3000行这个宏也是可以的呀