标题: [其他] 请教一个excel问题，如果在指定位置插入两个固定整行的内容？ [打印本页]

---

作者: 流川枫    时间: 2012-12-11 16:26     标题: 请教一个excel问题，如果在指定位置插入两个固定整行的内容？

1.如图示，比如列里面，在每一个“1”的前面插入两个内容相同整行，如何批量实现？
[attach]488754[/attach]


2.另一种情况，有可能有的列里面没有1，直接从2开始，或者3开始，结束的数字也不定，这个时候又如何批量在每一个数字结束之后插入两个固定整行内容？

---

作者: niubility    时间: 2012-12-11 16:42

posted by wap, platform: iPhone

看不懂，楼主可否手动填写以下希望得到的结果（涂个颜色标明），然后咱再来看如何自动实现行不？

---

作者: 流川枫    时间: 2012-12-11 16:58

[attach]488759[/attach]

在每一个品牌前，插入两个固定的整行内容：备注1和备注2。

每一个品牌到价格之间，项的数量是不一定的，名称也是不一定的。

---

作者: 绯雨流    时间: 2012-12-11 17:07

难。。。

---

作者: zxsoft    时间: 2012-12-11 17:42

简化需求，其实只要在“品牌“两个字之前加两行就可以了吧。建议用VBA做

---

作者: 龙云天翔    时间: 2012-12-12 11:45

---

作者: Kuzuryuusen    时间: 2012-12-12 11:56

posted by wap

把这一列复制出来到文本编辑工具比如Ultraedit，然后用替换将“品牌”1行替换成3行，最后再复制回Excel。

---

作者: 落    时间: 2012-12-12 12:06

posted by wap, platform: iPhone

把这两行的q列填入0和-1，然后复制足够多备份，然后按照q列排序。最后删除无用信息。我是不是太笨了

---

作者: Cheve    时间: 2012-12-12 13:31

posted by wap, platform: iPhone

vba可以满足要求

---

作者: sowo    时间: 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

---

欢迎光临 TGFC Lifestyle (http://bbs.tgfcer.com/)

Powered by Discuz! 6.0.0