Sheet 指定行前插入多行

st788796 · 发表于 2014-12-20 00:36:46

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

继续 Excel 操作
参数:  sht --- 工作簿
      baseRow --- 基准行
      nums  ---- 插入的行数

游客，如果您要查看本帖隐藏内容请回复

测试

(defun c:tt (/ excel sht)
(setq excel (vlax-get-object "Excel.Application")
sht (vlax-get excel 'ActiveSheet)
)
(_Excel:InsertRows sht 1 5)
(princ)
)

sicky111 · 发表于 2014-12-25 18:11:32

好像有种灌水的嫌疑，但是没有办法。

liuyj · 发表于 2014-12-20 00:44:41

下一个应该是指定列前插入多列

st788796 · 发表于 2014-12-20 00:45:53

liuyj 发表于 2014-12-20 00:44
下一个应该是指定列前插入多列

你来写一个吧{:soso_e100:}

liuyj · 发表于 2014-12-20 00:51:14

照猫画虎还行，自己写水平就不行了，不知道有没有EntireColumn属性？

wzg356 · 发表于 2014-12-20 00:56:53

A New Day
Well done!

819534890 · 发表于 2014-12-20 00:59:27

不错不错，谢谢

st788796 · 发表于 2014-12-20 01:05:22

liuyj 发表于 2014-12-20 00:51
照猫画虎还行，自己写水平就不行了，不知道有没有EntireColumn属性？

告诉你个方法

1 摆渡搜索

2 录制宏，找出其中的方法

下面是录制的列插入

Sub 宏1()
'
' 宏1 宏
'
' Columns("C:C").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Application.WindowState = xlMinimized
Application.WindowState = xlNormal
End Sub

Free-Lancer · 发表于 2014-12-20 07:34:12

liuyj 发表于 2014-12-20 00:51
照猫画虎还行，自己写水平就不行了，不知道有没有EntireColumn属性？

用 Rows 属性插入

游客，如果您要查看本帖隐藏内容请回复

HLCAD · 发表于 2014-12-20 08:42:16

回复，研究一下大侠的程序

lucas3 · 发表于 2014-12-20 09:33:13

本帖最后由 lucas3 于 2014-12-20 09:35 编辑

用到API的EXCEL解析库？XD::Excel:i2ColNo ，搞错了，原来开源函数里有

qyming1996 · 发表于 2014-12-22 18:08:04

学习。。。。。。。。。。。。。

e2002 · 发表于 2014-12-31 21:29:46

感谢分享，学习中。

yyyyyyy234 · 发表于 2015-2-6 23:47:57

学习一下,非常感谢。

范建威 · 发表于 2016-7-5 15:56:20

下载学习一下

账号		自动登录	找回密码
密码			立即注册

[每日一码] Sheet 指定行前插入多行

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

点评