使用行A的最后四个字符自动填充行B.

Question

所以基本上我想要一个VBA脚本用行A中的最后四个字符填充行B.

行包含一个电话号码，其中包含大约12个号码。

Answer 1

尝试

Dim ws As Worksheet
Set ws = Worksheets("Sheet1")

    With ws.Range("B2:B99")
        .Formula = "=Right(A2, 4)"
        .Value = .Value
    End With

Answer 2

假设你想说

  

我在A栏有一系列电话号码。我想   创建第二列，其中我只有最后四位数字   这些数字。我是Excel的新手。有人可以帮我搞定   从这开始呢？“

答案是这样的：

在Excel中，您可以创建计算“某事物”的公式 - 通常基于其他单元格的内容。对于您的具体情况，有一个名为RIGHT(object, length)的函数，它有两个参数：

object = a string (or a reference to a string)
length = the number of characters (starting from the right) that you want.

您可以通过在单元格中键入以下内容来自行查看：

=RIGHT("hello world", 5)

当您点击<enter>时，您会看到该单元格显示值world。

您可以使用单元格引用而不是固定字符串来扩展此概念。想象一下，你在单元格A1中有“hello world”。现在，您可以将以下内容放在单元格B1中：

=RIGHT(A1, 5)

您将在B1中看到值“world”。

现在这是一个很酷的伎俩。假设您在A列中有一堆数字（例如从第2行开始，因为第1行包含一些标题信息 - 列的标题）。然后，您可以在单元格B2中编写以下内容：

=RIGHT(A2, 4)

获取最后四位数字。现在选择该单元格，然后双击右下角的小方框：

像魔术一样，Excel表示“你希望对这一列中的所有单元格执行此操作，因为列A中的数据与行数一样多。我可以这样做！” - 并且您的公式将传播到B列中的所有单元格，并调整行号（因此在第3行中，公式将为

=RIGHT(A3, 4)

等