»
首页
|
手机数码
|
汽车资讯
|
游戏硬件
|
评测专题
|
手机壁纸
|
海淘值得买
|
度假
|
求职招聘
|
广告联系
» 您尚未登录:请
登录
|
注册
|
标签
|
帮助
|
小黑屋
|
TGFC Lifestyle
»
完全数码讨论区
» 请教一个excel问题,如果在指定位置插入两个固定整行的内容?
发新话题
发布投票
发布商品
发布悬赏
发布活动
发布辩论
发布视频
打印
[其他]
请教一个excel问题,如果在指定位置插入两个固定整行的内容?
流川枫
魔神组
帖子
11645
精华
6
积分
25476
激骚
675 度
爱车
主机
相机
手机
注册时间
2000-12-9
发短消息
加为好友
当前离线
1
#
大
中
小
发表于 2012-12-11 16:26
只看该作者
1.如图示,比如列里面,在每一个“1”的前面插入两个内容相同整行,如何批量实现?
2.另一种情况,有可能有的列里面没有1,直接从2开始,或者3开始,结束的数字也不定,这个时候又如何批量在每一个数字结束之后插入两个固定整行内容?
附件:
您所在的用户组无法下载或查看附件
UID
2402
帖子
11645
精华
6
积分
25476
交易积分
0
阅读权限
100
在线时间
10825 小时
注册时间
2000-12-9
最后登录
2022-8-10
查看详细资料
TOP
niubility
摄影组
帖子
3880
精华
0
积分
20632
激骚
1608 度
爱车
有
主机
也有
相机
确实有
手机
必须得有
来自
这个当然有
注册时间
2007-10-22
发短消息
加为好友
当前离线
2
#
大
中
小
发表于 2012-12-11 16:42
只看该作者
posted by wap, platform: iPhone
看不懂,楼主可否手动填写以下希望得到的结果(涂个颜色标明),然后咱再来看如何自动实现行不?
UID
92055
帖子
3880
精华
0
积分
20632
交易积分
0
阅读权限
50
来自
这个当然有
在线时间
8797 小时
注册时间
2007-10-22
最后登录
2025-6-27
查看详细资料
TOP
流川枫
魔神组
帖子
11645
精华
6
积分
25476
激骚
675 度
爱车
主机
相机
手机
注册时间
2000-12-9
发短消息
加为好友
当前离线
3
#
大
中
小
发表于 2012-12-11 16:58
只看该作者
在每一个品牌前,插入两个固定的整行内容:备注1和备注2。
每一个品牌到价格之间,项的数量是不一定的,名称也是不一定的。
附件:
您所在的用户组无法下载或查看附件
UID
2402
帖子
11645
精华
6
积分
25476
交易积分
0
阅读权限
100
在线时间
10825 小时
注册时间
2000-12-9
最后登录
2022-8-10
查看详细资料
TOP
绯雨流
NULL
五道杠
ZERO
帖子
65536
精华
1
积分
169994
激骚
4960 度
爱车
主机
相机
手机
注册时间
2003-1-13
发短消息
加为好友
当前离线
4
#
大
中
小
发表于 2012-12-11 17:07
只看该作者
难。。。
UID
7843
帖子
65536
精华
1
积分
169994
交易积分
0
阅读权限
60
在线时间
31467 小时
注册时间
2003-1-13
最后登录
2025-7-21
查看详细资料
TOP
zxsoft
小黑屋
天外飞仙
张宇、伍佰
帖子
11204
精华
0
积分
38656
激骚
1104 度
爱车
惊了!
主机
炸裂了!
相机
湿了!
手机
直了!
来自
喷了!
注册时间
2006-4-9
发短消息
加为好友
当前离线
5
#
大
中
小
发表于 2012-12-11 17:42
只看该作者
简化需求,其实只要在“品牌“两个字之前加两行就可以了吧。建议用VBA做
UID
54726
帖子
11204
精华
0
积分
38656
交易积分
0
阅读权限
40
来自
喷了!
在线时间
8008 小时
注册时间
2006-4-9
最后登录
2025-7-22
查看个人网站
查看详细资料
TOP
龙云天翔
混世魔头
帖子
3350
精华
0
积分
17631
激骚
207 度
爱车
主机
相机
手机
注册时间
2005-1-3
发短消息
加为好友
当前离线
6
#
大
中
小
发表于 2012-12-12 11:45
只看该作者
UID
35023
帖子
3350
精华
0
积分
17631
交易积分
0
阅读权限
40
在线时间
4591 小时
注册时间
2005-1-3
最后登录
2025-7-22
查看详细资料
TOP
Kuzuryuusen
屎上最强围观饭
魔神至尊
MOOOOOOO!
帖子
19755
精华
2
积分
36908
激骚
558 度
爱车
YYing
主机
玩ing
相机
啥?
手机
注册时间
2004-1-10
发短消息
加为好友
当前离线
7
#
大
中
小
发表于 2012-12-12 11:56
只看该作者
posted by wap
把这一列复制出来到文本编辑工具比如Ultraedit,然后用替换将“品牌”1行替换成3行,最后再复制回Excel。
UID
19067
帖子
19755
精华
2
积分
36908
交易积分
3
阅读权限
40
在线时间
31324 小时
注册时间
2004-1-10
最后登录
2025-7-22
查看详细资料
TOP
落
小黑屋
帖子
439
精华
1
积分
9162
激骚
28 度
爱车
主机
相机
手机
注册时间
2009-6-4
发短消息
加为好友
当前离线
8
#
大
中
小
发表于 2012-12-12 12:06
只看该作者
posted by wap, platform: iPhone
把这两行的q列填入0和-1,然后复制足够多备份,然后按照q列排序。最后删除无用信息。我是不是太笨了
UID
133259
帖子
439
精华
1
积分
9162
交易积分
0
阅读权限
1
在线时间
2765 小时
注册时间
2009-6-4
最后登录
2018-1-13
查看详细资料
TOP
Cheve
混世魔头
帖子
3780
精华
0
积分
19919
激骚
72 度
爱车
主机
相机
手机
注册时间
2001-7-9
发短消息
加为好友
当前离线
9
#
大
中
小
发表于 2012-12-12 13:31
只看该作者
posted by wap, platform: iPhone
vba可以满足要求
UID
2782
帖子
3780
精华
0
积分
19919
交易积分
1
阅读权限
40
在线时间
11885 小时
注册时间
2001-7-9
最后登录
2025-7-22
查看详细资料
TOP
sowo
魔王撒旦
帖子
6551
精华
0
积分
20467
激骚
199 度
爱车
主机
相机
手机
注册时间
2005-11-17
发短消息
加为好友
当前离线
10
#
大
中
小
发表于 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
控制面板首页
密码修改
积分交易
积分记录
公众用户组
基本概况
版块排行
主题排行
发帖排行
积分排行
交易排行
在线时间
管理团队
管理统计