vba - 如何在特定位置插入行

Question

我有一个 Excel 工作簿，我在“A”列中定义了一系列数字我想在遇到整数值的位置插入一行。

这是我的 Excel 快照

我编写了下面的代码，它标识“A”列中的整数值，并且它将插入一行。但问题是，即使插入也发生在空白处(例如:在第 4、8、9 和 14 行中)。那么谁能告诉我如何实现仅在我有 Integer 的那些行中插入行。

Private Sub CommandButton3_Click()



 Dim UsedCell, MyRange, intCell
 Dim Cell_Text As String
 Dim Cell_Address As String


 UsedCell = Sheets("Sheet1").Cells(1, 1).SpecialCells(xlLastCell).Row
    Set MyRange = Range("A2:A" & UsedCell)

For Each intCell In MyRange
Cell_Text = intCell.Offset(0, 3).Text
Cell_Address = intCell.Offset(0, 3).Address
FoundRow = intCell.Row

  If Not InStr(1, intCell.value, ".") > 0 And InStr(1, intCell.value, ".") <> "" Then
 Range(Cell_Address).Select
Selection.EntireRow.Select

     Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove


 Else

End If

Next intCell

End Sub

Answer 1

对数值使用 inStr 有点复杂。另请注意，Excel 会将空单元格解释为值 0。请尝试以下操作:

If Int(intCell.Value) = intCell.Value And intCell.Value > 0 Then
    Debug.Print "insert"
End If

换句话来说:如果单元格值的整数等于单元格值(即没有小数)并且单元格大于零，则执行插入代码。