1
我有一个电子表格,其中包含的数据以列a-z表示。此脚本适用于Col数据,但我希望它可以搜索col C.如何在col c中搜索字符串?我没有找到任何字符串或没有插入行。根据可变文本字符串搜索列插入X行数C
Option Explicit
Sub Insert_Rows()
Dim i As Long, lRows As Long, lastrow As Long, lngCount As Long
Dim strTxt As String
Application.ScreenUpdating = False
lastrow = Cells(Rows.Count, "A").End(xlUp).Row
lRows = Application.InputBox("How many rows do you want to insert?", Type:=1)
If lRows < 1 Then
MsgBox " You must enter a number greater than zero"
Exit Sub
End If
strTxt = Application.InputBox("Enter the text string to search on. Rows will be inserted below each cell containing this string.")
If Len(strTxt) < 1 Then
MsgBox "You must enter a text string consisting of at least one character"
Exit Sub
End If
With ActiveSheet
lngCount = Application.WorksheetFunction.CountIf(.Range("A1:A" & lastrow), strTxt)
If lngCount < 1 Then
MsgBox "The text string you entered is not listed - cancelling", vbExclamation
Exit Sub
End If
On Error Resume Next
For i = lastrow To 1 Step -1
If .Cells(i, 1).Value = strTxt Then
.Range("A" & i + 1 & ":A" & i + lRows).Insert shift:=xlDown
End If
Next i
End With
Application.ScreenUpdating = True
End Sub
更改为列A到C的引用? –
我试过了。我到处都看到了'A',但它不起作用。你能更具体地了解哪些实际变化? – DubMartian
除了所有'A'到'C',你还需要将'.Cells(i,1)'改为'.Cells(i,3)' –