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

Question

Vba excel 的新手，我不知道如何将文本输入到已选择的单元格范围内的单元格范围内。

我有一个大约 10K 行的数据列表。我添加了一个新标题，试图为向下的每一行添加文本。

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

我已经尝试过了。

所以我只通过VBA选择范围。理想情况下，我希望新标题能够运行“如果那么”检查并相应地更新新标题下的每个单元格。因此，如果单元格“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”例如作为活动单元格，它会做什么。最后一个子是我要达到的选择范围。

标签： excelvba