»
首页
|
手机数码
|
汽车资讯
|
游戏硬件
|
评测专题
|
手机壁纸
|
海淘值得买
|
度假
|
求职招聘
|
广告联系
» 您尚未登录:请
登录
|
注册
|
标签
|
帮助
|
小黑屋
|
TGFC Lifestyle
»
完全数码讨论区
» 请教一个excel问题,如果在指定位置插入两个固定整行的内容?
发新话题
发布投票
发布商品
发布悬赏
发布活动
发布辩论
发布视频
打印
[其他]
请教一个excel问题,如果在指定位置插入两个固定整行的内容?
sowo
魔王撒旦
帖子
6551
精华
0
积分
20467
激骚
199 度
爱车
主机
相机
手机
注册时间
2005-11-17
发短消息
加为好友
当前离线
1
#
大
中
小
发表于 2012-12-12 13:33
显示全部帖子
用vba,很简单。把这个宏弄到工作簿里,假设“品牌”那一列里没有空行
Public Sub AddColumn()
Dim i As Long
Dim sCol As String
i = 1 '
sCol = Application.InputBox("输入“品牌”所在的列名,如A,E等")
While Range(sCol & i).Value <> ""
If Range(sCol & i).Value = "品牌" Then
Rows(i & ":" & i + 1).Insert Shift:=xlDown
Range(sCol & i).Resize(2, 1) = Application.WorksheetFunction.Transpose(Array("备注1", "备注2"))
i = i + 3
End If
i = i + 1
Wend
End Sub
UID
50078
帖子
6551
精华
0
积分
20467
交易积分
0
阅读权限
40
在线时间
8563 小时
注册时间
2005-11-17
最后登录
2025-6-25
查看详细资料
TOP
控制面板首页
密码修改
积分交易
积分记录
公众用户组
基本概况
版块排行
主题排行
发帖排行
积分排行
交易排行
在线时间
管理团队
管理统计