excel（vba)如何根据某列给出的数值，在相应那个行下插入复制相应数值的行
如上表，请问大神们，怎么按c列给出的数值，在每行下面插入相应数值的行，比如c1是2，第一行下面就插入复制两行与第一行一样的内容？？？
可以用公式做个辅助列，下面再增加序列，再排序，再定位空值，再批量输入，具体参照
小动画。
用公式就可以了，看附件。
E列是辅助列，也可以直接写在公式里，不过单独写的话方便一点。做完以后复制-选择性粘贴值到前面，把不需要的东西删了就行了。
好在你只有两列，所以基本上只要根据A列来判断就行了，不过就算列很多，只要有一列关键列的话，根据关键列判断也是一样的。
excel(vba)如何根据某列给出的数值,在相应那个行下插入复制相应数值的...
可以用公式做个辅助列，下面再增加序列，再排序，再定位空值，再批量输入，具体参照 小动画。
EXCEL根据某一单元格的值,自动复制插入行。求详细VBA代码,谢谢
1、添加内件名称数据辅助列，输入以下公式，然后向下填充公式 =LEN(N2)-LEN(SUBSTITUTE(N2,",",""))+1 2、添加行数对应辅助列，输入以下公式，然后向下填充公式 =SUM(Q$2:Q2)-Q2 3、输入以下公式，然后向右向下填充公式 =IF(ROW(A1)-1<SUM($Q:$Q),LOOKUP(ROW(A1)-1,$R$2:$R$4,B$2...
EXCEL根据某一一行的值,自动复制插入行,VBA代码怎么写
12345678910Sub fuzhi()with activesheet For i = .Range("N65536").End(xlUp).Row To 2 Step -1 n = UBound(Split(.Cells(i, "N"), ",")) .Rows(i & ":" & i + n - 1).Insert .Rows(i + n).Copy .Rows(i & ":" & i + n - 1) .Rows(i + 1 & "...
EXCEL根据某一单元格的值,自动复制插入行。求详细VBA代码?十分感谢_百度...
1、添加内件名称数据辅助列，输入以下公式，然后向下填充公式 =LEN(N2)-LEN(SUBSTITUTE(N2,",",""))+1 2、添加行数对应辅助列，输入以下公式，然后向下填充公式 =SUM(Q$2:Q2)-Q2 3、输入以下公式，然后向右向下填充公式 =IF(ROW(A1)-1<SUM($Q:$Q),LOOKUP(ROW(A1)-1,$R$2:$R$4,B$2...
excel如何根据指定列数字,追加指定的数据行?
B1输入 =IF(ROW()>SUM($D$1:$D$15),"",INDEX(C$1:C$15,MATCH(ROW(D1),IF(ROW($1:$15)>1,SUMIF(OFFSET(D$1,,,ROW($1:$15)-1),">0")+1,1)))按ctrl+shift+enter结束，下拉到出现空白单元格为止即可。及时采纳哦，亲～PS：这题竟然没悬赏……...
excel中如何根据指定数字,紧随其后插入行数?
写VBA代码来完成，步骤如下：打开工作表，按ALT+F11组合键调出VBE，在右边的代码窗口输入如下代码：Sub InsertLine()Dim i As Integer, j As IntegerFor i = 2 To 1000For j = 1 To Cells(i, 4)Rows(i + 1).InsertNext jNext iEnd Sub 确保光标处于代码中，按F5键运行，完成！如有疑问...
[Excel+VBA]如何查找某个表格里的数据并将相关数据复制到另一个表中...
同时按CTRL SHFIT 回车键 出现结果，下拉公式 第3列同理 VBA的要依次循环包含了 编号或 挖方的数据 或设置 步长 复制到 sheet1表 Sub 编号()Dim i, n n = 2 For i = 1 To Sheets("三角网原始数据").Range("a65536").End(xlUp).Row Step 6 n = n + 1 Cells(n, "a") = ...
EXCEL如何根据数值复制对应数量的行
在辅助列编序号（不含标题行）；复制数据，到最下方粘贴，需要重复为几行，就粘贴行数减一次，比如下图是重复为三行，粘贴两次；选中序号列中任一单元格，选择：排序和筛选--升序；即得到重复结果，再删除辅助列序号即可。
怎样在excel里用vba之类的实现点击一个按钮后一行数据自动复制粘贴到...
假设你数据在A2到F2里输入。任意插入一图形，右键点该图形，指定宏，新建。在出来的窗口中再Sub和End Sub之间 粘贴如下代码：Dim i, j As Integer i = --Range("A2")For j = 1 To 6 Cells(i, j) = Cells(2, j)Next j 回到Excel，就有了你要的。
excel vba当数据等于20时在它下方插入一行,并在插入的行里粘贴指定的...
k = 0 Then MsgBox "No value greater then 20"Exit Sub End If For i = 1 To k Rows(j).Insert Range(Cells(j, 1), Cells(j, 7)) = Arr Next i End Sub 这是a列如果只有一个20的话 就用上面的代码就可以了 如果不止一个等于20的话 需要再添加点code 如果你需要的话追问我 ...
