Excel 我需要有一个工作表根据K列中是否有文本数据自动插入一行

这是我试过的。它可以工作，但不能自动工作。您必须运行宏才能使其工作。我需要它在输入数据时工作

Sub BlankLine()

    Dim Col As Variant
    Dim BlankRows As Long
    Dim LastRow As Long
    Dim R As Long
    Dim StartRow As Long

    Col = "K"
    StartRow = 1
    BlankRows = 1

        LastRow = Cells(Rows.Count, Col).End(xlUp).Row

        Application.ScreenUpdating = False

        With ActiveSheet
For R = LastRow To StartRow + 1 Step -1
If .Cells(R, Col) <> "" Then
.Cells(R + 1, Col).EntireRow.Insert Shift:=xlDown
End If
Next R
End With
Application.ScreenUpdating = True

End Sub

子空行（）
Dim Col作为变体
一行一行地长
最后一排一样长
变暗，变长
黯淡的星空如长
Col=“K”
StartRow=1
BlankRows=1
LastRow=单元格（Rows.Count，Col）.End（xlUp）.Row
Application.ScreenUpdating=False
使用ActiveSheet
对于R=从最后一行到StartRow+1步骤-1
如果.Cells（R，Col）“，则
.单元格（R+1，列）.EntireRow.Insert Shift:=xlDown
如果结束
下一个R
以
Application.ScreenUpdating=True
端接头

乔丹的可能复制品-谢谢，我看过了，但不起作用。代码可以工作，但用户必须知道如何运行宏。如何让工作表根据jordan的可能副本自动运行整个工作表的代码-谢谢，我看过了，但它不起作用。代码可以工作，但用户必须知道如何运行宏。如何让工作表根据