自由插入行列工具

lsc900707 · 发表于 2016-8-10 18:07

本帖最后由 lsc900707 于 2016-8-10 20:39 编辑

近日网友提供一个自由插入行的工具，自己依样画葫芦弄了个自由插入列的工具，感觉使用起来还顺手，特上传，供需要者下载。

lsc900707 · 发表于 2016-8-12 07:46

欢迎大家批评指正>>>>>>>>>>

王长生 · 发表于 2017-2-6 21:33

Sub qcw()
Dim i%
With Sheet1
i = .Range("a65536").End(xlUp).Row + 1
  .Cells(i, 1) = [J3]
  .Cells(i, 2) = [J4]
  .Cells(i, 3) = [D3]
  .Cells(i, 4) = [D5]
  .Cells(i, 5) = [I25]
  .Cells(i, 6) = [D26]
  .Cells(i, 7) = [I25] - [D26]
  .Cells(i, 8) = [Q26] & [Q27] & [Q28]
  .Cells(i, 9) = [D4]
  .Cells(i, 10) = [J5]
  .Cells(i, 11) = [I25-N25] / [O25]
  .Cells(i, 12) = [O26]





      '回到空白表格
      Sheet1.Activate
End With
End Sub

王长生 · 发表于 2017-2-6 21:36

老师您好!请您指教,点"保存"按钮,要调试宏Sub qcw()
Dim i%
With Sheet1
i = .Range("a65536").End(xlUp).Row + 1
中的With Sheet1,请您帮助,

lsc900707 · 发表于 2017-2-7 01:01

王长生发表于 2017-2-6 21:36
老师您好!请您指教,点"保存"按钮,要调试宏Sub qcw()
Dim i%
With Sheet1

感谢关注。有时间我看问题再回复你。

adong3k · 发表于 2017-7-30 11:50

能否帮做一个表格，就是某列有特殊字符的时候，在这个字符的前面和后面插入一行？

lsc900707 · 发表于 2017-7-30 12:25

没有附件，很难获得满意的答复。

鄂龙蒙 · 发表于 2018-9-29 07:39

请老师帮助，谢谢！
http://club.excelhome.net/thread-1437934-1-1.html

qinhuan66 · 发表于 2019-6-13 15:06

好好学习天天向上

poongsan · 发表于 2019-11-9 16:03

非常好用，最近用得频繁添加列功能，发现佛山小老鼠的窗体形式也不错，但是他没有插入列功能。哈哈，这个有

		自动登录	找回密码
密码			免费注册

[分享] 自由插入行列工具

评分

评分

最新热点 /1