Range(Rows(3), Rows(5)).Insert shift:=xlDown

1）在当前单元格处插入一行  ； 可以增加循环语句来实现插入多行Range("A10").SelectSelection.EntireRow.Insert , CopyOrigin:=xlFormatFromLeftOrAbove

2）在当前选择行处插入与选择行数相同的行数； 可更改行号来实现不同地方的插入。    Rows("10:11").Select    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove3）将range换成sheet1.cells(x,y) 或range(cells(x1,y1),cells(x2,y2)) 则可用程序来控制插入的位置

EXCEL中VBA或者函数怎么自动插入新数据？

我会用函数，VBA知道一点，请问：如何在图中当C列出现大于4.8和小于0.2的数值后，自动插入下一个ZD9。就是图中K294+920后面出现了-0.363

解释一下图中数据的计算方法：第一个 ZD8所在行9和行10的数据手动输入。A列中K294+880和E列3174.967G列3174.97在另一个工作表中排列好了的，可以直接调用。他 后面的C列数值叫前视，C11=$D$10-E11，C12=$D$10-E12，C13=$D$10-E13

ZD9后 面C14是根据上图中K294+920后面出现了-0.363（小于0.2），就随机一个0.2到0.5的数。如果上图中K294+920后面出现了 7.652（大于4.8）时，就随机一个4.2到4.8的数。E14=D10-C14    B15也是一个随机数，是根据上图中K294+920后面出现了-0.363（小于0.2），就随机一个4.2到4.8的数。如果上图中 K294+920后面出现了7.652（大于4.8）时，就随机一个0.2到0.5的数。D15=E14+B15

这个ZD9就完成了。下边的C16=$D$15-E16，C17=$D$15-E17，C18=$D$15-E18 就是这样，如果下边的C列又出现大于4.8或者小于0.2的数，又插入下个点ZD10，如此循环。

如果没有说明白，请联系QQ313616791或者电话18048795658

那个7.652是假设的。那么我告诉你到底怎么做：我要这样几个过程，（1.）当C列出现小于0.2或者大于4.8的数值后，插入两行，这个叫转点。（2）这两行里的数据符合这样的要求，ZD9那个9=上一个ZD8后面的8+1，是下一个转点的意思。 显然在下一个就应该是ZD10，ZD11，ZD12 ，ZD13.......        这样吧，转点ZD就从ZD1开始。

根据你图一数据及要求写了一段代码，看是不是满足要求：1、运行前请备份原始数据表，切记！2、为了便于检查，会自动在相关单元格写入公式。3、代码直接放到图一的“水准测量记录”表的代码页中，如果写在模块中，请自行修改代码。代码运行后会生成图二的样子，只能运行一次，再次运行时必须保证数据格式是图一（原表）的格式。由于有几个数据是随机数，多次测试结果会不同。4、默认图一E列是已知数据。

Sub 插入数据()Dim i As LongDim k As LongDim n As Longn = 8k = 10With ActiveSheetFor i = 11 To 65536If .Cells(k, 4).Value - .Cells(i, 5).Value >= 0.2 And .Cells(k, 4).Value - .Cells(i, 5).Value <= 4.8 Then.Range("C" & i) = "=$D$" & k & "-E" & iElseIf .Cells(k, 4).Value - .Cells(i, 5).Value >= 4.8 Then.Rows(i).Insert Shift:=xlDown.Range("A" & i) = "ZD" & n + 1.Range("C" & i) = "=Round(rand() * (4.8 - 4.2) + 4.2, 3)".Range("E" & i) = "=$D$" & k & "-C" & i.Rows(i + 1).Insert Shift:=xlDown.Range("B" & i + 1) = "=Round(rand() * (0.5 - 0.2) + 0.2, 3)".Range("D" & i + 1) = "=E" & i & "+B" & i + 1ElseIf .Cells(k, 4).Value - .Cells(i, 5).Value <= 0.2 Then.Rows(i).Insert Shift:=xlDown.Range("A" & i) = "ZD" & n + 1.Range("C" & i) = "=Round(rand() * (0.5 - 0.2) + 0.2, 3)".Range("E" & i) = "=$D$" & k & "-C" & i.Rows(i + 1).Insert Shift:=xlDown.Range("B" & i + 1) = "=Round(rand() * (4.8 - 4.2) + 4.2, 3)".Range("D" & i + 1) = "=E" & i & "+B" & i + 1End Ifk = i + 1n = n + 1i = i + 1End IfIf .Range("E" & i + 1) = "" Then Exit ForNext iEnd WithEnd Sub

这就好理解了，我重复一遍，你确认一下。当c列中出现小于0.2或者大于4.8的数值后，在该行的上方插入两个空行，并且在A列写入ZD+编号。其他都留空白。

Sub InsertRow()Dim LastRow As Long, i As Long, j As LongApplication.CutCopyMode = FalseLastRow = Cells(Cells.Rows.Count, 3).End(3).Rowi = 1Do    If IsNumeric(Cells(i, 3)) And Len(Cells(i, 3)) > 0 Then        If Cells(i, 3) < 0.2 Or Cells(i, 3) > 4.8 Then            Rows(i & ":" & i + 1).Insert shift:=xlDown            j = j + 1            Cells(i, 1) = "ZD" & j            i = i + 2            LastRow = Cells(Cells.Rows.Count, 3).End(3).Row        End If    End If    i = i + 1Loop Until i > LastRowEnd Sub