Question

我附上了2张照片。文档的外观之一，我想要的另一个。我在H列中有定义的项目，在第I列中有输出示例，但我需要组合定义和输出示例。因此，我需要在列H中的任何文本之后写入“输出示例：”的代码，然后从第一列移动文本并将其放在文本“输出示例：”之后。如果第一列为空白，则我不要我希望将“输出示例”这个词写入H列，因为那样会让人感到困惑。

这是1,000行数据。

What I have What I need

    Sub MacroForOutput()
'
' MacroForOutput Macro
'

'
    Range("H8").Select
    ActiveCell.FormulaR1C1 = _
        "The prior authorization code specifying the type of authorization. Output Example: " & Chr(10) & ""
    Range("I8").Select
    ActiveCell.FormulaR1C1 = "111"
    Range("H8").Select
    ActiveCell.FormulaR1C1 = _
        "The prior authorization code specifying the type of authorization. Output Example: 111" & Chr(10) & ""
    Range("H9").Select
End Sub

Answer 1

假设您的代码完成了一行的工作，下面是2000行的for循环。

Sub MacroForOutput()
'
' MacroForOutput Macro
'

'
    For i = 2 To 2000
    Range("H" & i).Select
    ActiveCell.FormulaR1C1 = _
        "The prior authorization code specifying the type of authorization. Output Example: " & Chr(10) & ""
    Range("I" & i).Select
    ActiveCell.FormulaR1C1 = "111"
    Range("H" & i).Select
    ActiveCell.FormulaR1C1 = _
        "The prior authorization code specifying the type of authorization. Output Example: " & i & Chr(10) & ""
    Range("H" & i).Select
    Next i
End Sub

我需要VBA写“输出示例：”然后将列I中的项目移动到文本“输出示例”之后

1 个答案: