在Col A中查找更改，并使用Excel VBA插入4行
阿尔贝托·布朗
我试图让我的代码每次在下面的单元格中发现差异时都插入四行。如果A5-55 = 1，A56-80 = 2，A81-100 = 3，我希望代码看到56不等于55并插入4行，然后继续沿A列向下移动，直到没有更多值为止。
我不断从Excel中收到错误消息，
无法完成任务。资源错误
然后范围类的运行时1004插入方法失败，调试器将突出显示用于插入行的代码
这是我的数据：
Worksheets("HR-Calc").Activate
For lRow = Cells(Cells.Rows.Count, "A").End(xlUp).Row To 6 Step -1
If Cells(lRow, "A") <> Cells(lRow - 1, "A") Then
Rows(lRow).EntireRow.Insert
Rows(lRow).EntireRow.Insert
Rows(lRow).EntireRow.Insert
Rows(lRow).EntireRow.Insert
End If
Next lRow
Tragamor
更巧妙的方法是在桌子上使用自动过滤器
（代码假定A列是一个排序的整数ID-从图片中可以看出是这种情况）
Sub InsertRowsBetweenIncrements()
Dim ws As Worksheet: Set ws = Worksheets("HR-Calc")
Dim HeaderRow As Long: HeaderRow = 4
Application.ScreenUpdating = False
Dim LastRow As Long: LastRow = ws.Columns(1).Find("*", _
SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
Dim LastCol As Long: LastCol = ws.Cells.Find("*", _
SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
Dim Tbl As Range: Set Tbl = ws.Range(Cells(HeaderRow, 1), Cells(LastRow, LastCol))
Dim i As Long, j As Long
For i = ws.Cells(LastRow, 1).Value To 1 Step -1
Tbl.AutoFilter Field:=1, Criteria1:=i
j = Tbl.SpecialCells(xlCellTypeVisible).SpecialCells(xlCellTypeLastCell).Row
Tbl.AutoFilter
If j <> HeaderRow And j < LastRow Then _
ws.Rows(j + 1 & ":" & j + 4).Insert Shift:=xlDown
Next i
Application.ScreenUpdating = True
End Sub
本文收集自互联网，转载请注明来源。
如有侵权，请联系[email protected] 删除。
编辑于
相关文章
Related 相关文章
- 1
在 col-md-12 中引导 col-md-4
- 2
如果col 1与col 3相同，如何用X替换col 4中的值，否则使用awk用col 2替换col 4中的每个条目
- 3
如果表C中的Col A和Col B组合不存在，请在表3中插入新行
- 4
如果表C中的Col A和Col B组合不存在，请在表3中插入新行
- 5
查找 COL1 匹配但 COL2 不匹配的行并删除最旧的条目
- 6
如何在具有4个img的引导程序（col xs-12 col-sm-6 col-md-2 col-lg-2）中居中？
- 7
违反 PRIMARY KEY 约束 PK。无法在对象 (table1) 中插入重复键，重复键值为 (Col1, Col2, Col3, Col4)
- 8
当Table1.COL = Table2.Col时，从Table1中删除行
- 9
查询将行中的max（col）和关联的col链接到不同的表
- 10
Pandas：根据 col[B] 上的条件删除 col[A] 中的重复项，保留行
- 11
匹配来自 col2 中 col1 的 ID，如果该行的 col3 值小于在 col1 中匹配的行中的 col3 值，则取该行的值
- 12
如何像在SQL中那样在C＃中按小时格式（120：15：10）的行对行进行汇总/分组-如SELECT SUM（col1），col 2，col3 GROUP BY col2，col3
- 13
!str_detect(col, pattern) 从 data.frame 中删除的行比使用 str_detect(col, pattern) 找到的行多
- 14
从 df col 名称中的 DF 列查找值，取相应行的值
- 15
如何在bootstrap 4中设置col大小的动画？
- 16
Bootstrap 4 中的隐形元素和 Col-X 元素
- 17
将col转换为数据框列表中的行名
- 18
如何将Spark DF Col旋转到行中
- 19
使用col行索引从矩阵中提取值
- 20
使用col行索引从矩阵中提取值
- 21
SQL - 如果 col1 的值期望为 0 并且 col2 的值除了 0 与 col3 的值相同，则值在一行中
- 22
Excel / VBA-根据简短的col / row中的int在下面创建行
- 23
Excel / VBA-根据简短的col / row中的int在下面创建行
- 24
根据col A行N和col B行N + 1的值之差插入行
- 25
如何使用同一df中其他col的信息更改一个col值
- 26
HTML JavaScript行而不是col
- 27
在Bootstrap 3中使用col-*-12（col-xs / col-sm等）
- 28
如何使用Java在Spark SQL的DataFrame中执行“ col（a）== null？col（b）：col（c）”列操作？
- 29
使用 {row:[col, value]} 形式的矩阵行中的键创建 dict
我来说两句