Excel VBA： 按照条件插入行

Sub Macro1()

Dim softwareVersion As String

Dim recentFlag As String

Dim historyFlag As String

Dim maxRowsNumber As Long

Dim targetColumn As Integer

Dim imageColumn As Integer

maxRowsNumber = 65535

recentFlag = "Y"

historyFlag = "N"

targetColumn = 8

imageColumn = 10

'Enter the newest version in this place

softwareVersion = "3.08.00"

For i = 7 To maxRowsNumber Step 1

If Cells(i, 6) = recentFlag Then

Rows(i).Copy

Rows(i + 1).Insert

Cells(i, 6) = historyFlag

Cells(i + 1, 6) = recentFlag

Cells(i + 1, 8) = softwareVersion

Cells(i + 1, 10) = softwareVersion

i = i + 1

ElseIf Cells(i, 6) = "" Then

i = maxRowsNumber

End If

Next i

End Sub

Sub Macro1()

Dim SoftwareVersion As String

SoftwareVersion = "3.08.00"

For i = 7 To 65535 Step 1

If Cells(i, 6) = "Y" Then

Rows(i).Copy

Rows(i + 1).Insert

Cells(i, 6) = "N"

Cells(i + 1, 6) = "Y"

Cells(i + 1, 8) = SoftwareVersion

Cells(i + 1, 10) = SoftwareVersion

i = i + 1

ElseIf Cells(i, 6) = "" Then

i = 65535

End If

Next i

End Sub