一行参考多张 [英] Reference multiple sheets in one line

问题描述

我想知道是否有办法在Excel VBA中单行中引用多个工作表。我知道您可以通过以下方式引用多个范围，列和行：

I was wondering if there is a way to reference multiple sheets in a single line in Excel VBA. I know you are able to reference multiple ranges, columns, rows via:

Range("G1:G5, G6:G10, H5:H10") etc...

我想要能够做同样的事情，我试过这个：

I want to be able to do the same thing with sheets I tried this:

Sheets("Sheet1_Name, Sheet2_Name, Sheet3_Name").Range(...)

但是这没有办法，所以我想知道是否有一种特殊的方法来做这个，除了把表格名称变量然后引用变量。

But that didn’t work so I was wondering if there was a special way to do this aside from putting the sheet names into variables then referencing the variables.

推荐答案

Sub Test()
    Dim sheetsArray As Sheets
    Set sheetsArray = ActiveWorkbook.Sheets(Array("Sheet1", "Sheet2", "Sheet3"))

    Dim target As Range
    Dim sheetObject As Worksheet

    ' change value of range 'a1' on each sheet from sheetsArray
    For Each sheetObject In sheetsArray
        Set target = sheetObject.Range("A1")
        target.Value = "Test"
    Next sheetObject
End Sub

这篇关于一行参考多张的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！