Excel中如何简便实现从其他工作表批量获取同行单元格数据

当前场景为在工作表A操作，需要从工作表B拉取对应位置单元格的值，原有单单元格（B1）的取值实现代码如下：

Range("B1").Select 
ActiveCell.FormulaR1C1 = "='B'!RC"

要给C1、D1等其他单元格实现相同的跨表取值效果，完全不需要逐个单元格选中、逐行写公式，利用R1C1引用的相对位置匹配特性，直接给目标单元格区域批量写入公式即可，写法更简洁、运行效率更高：

• 连续区域批量设置：如果需要给B1到D1的连续单元格设置跨表引用，直接对目标区域统一赋值公式即可，区域内每个单元格会自动匹配工作表B中行号、列号完全一致的单元格值：

' 无需逐格选中激活，直接操作目标区域
Range("B1:D1").FormulaR1C1 = "='B'!RC"

• 非连续单元格批量设置：如果需要取值的单元格是分散的，比如仅需要B1、D1、F1三个位置，直接在Range参数中用逗号分隔所有目标单元格地址即可：

Range("B1,D1,F1").FormulaR1C1 = "='B'!RC"

• 取值后转静态值：如果不需要保留公式联动效果，希望取值固定不受工作表B后续修改影响，可以在写入公式后追加一行代码，直接把区域内的公式结果转换为静态值：

' 批量将公式转为固定值
Range("B1:D1").Value = Range("B1:D1").Value

原有代码中先Select单元格再操作ActiveCell的步骤属于冗余操作，VBA支持直接对指定Range对象执行读写操作，省去选中激活的步骤不仅能提升代码运行速度，还能避免代码运行时Excel界面频繁跳转、闪屏的问题。

内容的提问来源于stack exchange，提问作者Oskar