ALT+F11，输入如下代码：Sub x() Dim i As Long Dim j As Integer For i = 2 To Cells(Rows.Count, 1).End(3).Row * 11 Step 11 For j = 1 To 10 Rows(i + 1).Insert Next j Next iEnd Sub然后点击图中红圈处的运行按钮 ...
在空白列（如G列）操作，G2录入1，H3录入1，选中G2:H3（四个单元格），按住填充柄下拉至数据区域最后一行。\x0d\x0a在上面操作后选中状态下，按Ctrl+G定位，定位条件选“空值”。\x0d\x0a保持选中状态，右击鼠标，插入行。\x0d\x0a删除G、H列。\x0d\x0a选中A列（或其它原数据填满的...
2 举例(wps)：在1到10，隔两行插入一行，从第一行开始，打开该文档，开发工具-vb编辑器 3 插入-模块：上代码：Sub 每隔两行插入一行()Dim i For i = 1 To Sheet1.Range("a3000").End(3).Row * 3 Rows(i & ":" & i + 0).Select i = i + 2 Selection.Insert Shift:=xlDown ...
Selection.Insert shift代码 批量删除不需要的数据行 Selection.Delete shift代码 批量隐藏操作 Rows(I).Hidden代码 方法/步骤 1 如下Excel中，有一份学生成绩数据表。现在，由于对每个学生增加了成绩备注项，要在每个学生成绩记录后添加一行新纪录，如A下面增加A1行，B下面增加B1行，以此类推；2 假如使用鼠标点击操作...
首先，看下你的哪个列的单元格是全部已经填充完了的 （为了方便下拉）在选定的列的右边，插如辅助列 在需要保留的第一行的辅助列内填输入任意文字，如字母A 选取辅助列中A相邻的十个单元格 把鼠标移到选择后区域的最右下角 双击（下如果前面的单元格有不连续的，那用下拉的方法）选择辅助列，CTRL+...
当然可以啦~选中任意多行(连续选中整行)，然后在选中的最下一行或者最上一行点击右键 插入 就可以插入...
假设你所有数据的最后一列是H 在H1 输入=IF(ROW()<=1000,ROW(),(ROW()-1000)*10+0.5) 下拉到H1100 然后拷贝黏贴“值”替换H列，接着对H列排序
用vba代码也可以 Sub 插入行()Dim i For i = Range("a65536").End(xlUp).Row + 1 To 1 Step -10 'Rows(i).Select Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove Next End Sub
共有11行数据相同 m = 1'要重复的起始行 n = 2000'要重复的行数，即假设有2000行的数据要每行都要插10行 For i = m To n Rows(m + n - i & ":" & m + n - i).Select For k = 1 To j Selection.Copy Selection.Insert Shift:=xlDown Next k Next i End Sub ...
1、在数据区域右侧插入一个辅助列，如F列。在F列中选择与数据区域中第5行所对应的单元格F9，输入一个字母或数值，如“1”，然后选择F9:F12（共4行），双击或拖动填充柄向下填充。注意如果是每隔N行插入一个空行，则需在辅助列中对应数据区域的第N+1行所在单元格输入数值，再选择该单元格及以下的...