Question

假设我在一个excel表中的每一行中都有一组如下所示的语句

insert into table where column=[test1]
insert into table where column=[test2]
insert into table where column=[test3]

需要一个宏程序在每个语句下插入“go”，如下所示

insert into table where column=[test1]
go
insert into table where column=[test2]
go
insert into table where column=[test3]
go

这只是一个样本。我需要为超过200个语句执行此操作..并且我不想使用replace选项，因为如果我使用不同的语句集，语句的结尾可能会改变。

Answer 1

假设您的statements位于第1行的第A列，即A1。以下代码将在每个语句后插入Go：

Sub InsertGo()
    Dim statements(), i As Long
    statements = Range("A1:A" & Range("A1").End(xlDown).Row)

    For i = 1 To UBound(statements)
        Range("A" & (i * 2 - 1)) = statements(i, 1)
        Range("A" & (i * 2 - 1)).Offset(1, 0) = "Go"
    Next i
End Sub

Excel宏需要在每行后插入一个语句

1 个答案: