有没有办法为选定范围内的特定单元格输入文本？

Question

Vba excel的新增功能，我无法弄清楚如何在文本中输入已选择的单元格范围内的单元格范围。

我有一个大约1万行的数据列表。我添加了一个新的标头，尝试为向下的每一行添加文本。

所以基本上，如果我 Ctrl + Shift + Down （在我拥有的数据集中）并移到我拥有的新标题中我想要的数据范围，但我不知道如何在此范围内的标题下输入文本。希望这一切都有道理。

我已经尝试过了。

所以我只能通过VBA选择范围。理想情况下，我希望新标头能够运行“ If then”，然后检查并相应地更新新标头下的每个单元格。因此，如果单元格“ H8”说了什么，那么“ P8”就是我想要的结果。

Sub Card_type_test()

    Dim CT As String

    CT = ActiveCell.Value

    If CT = "AMERICAN EXPRESS" Then
        ActiveCell(1, 9).Value = "AMEX2"
    ElseIf CT = "MASTERCARD" Then
        ActiveCell(1, 9).Value = "MC2"
    ElseIf CT = "VISA" Then
        ActiveCell(1, 9).Value = "VISA2"
    Else
    End If

End Sub

Sub Selecting_correct_Cells()

    Range(Range("P8"), Range("H8").End(xlDown)).Select

End Sub

第一个Sub是一个测试，看“ if then”语句是否起作用。例如，如果我突出显示“ H8”作为活动单元格，该怎么办。最后一个子项是我要达到的选定范围。