Question

我使用此代码（适用于我）创建了一个范围的工作表

Dim i As Integer, n As Integer
n = wsWithSheetNames.Range("G3:G5").Count
ReDim ws1(1 To n)
For i = 1 To n
    Set ws1(i) = ThisWorkbook.Worksheets(i)
Next

所以现在，我想为新创建的工作表分配变量。（这样我可以使用ws1，ws2等进一步操作像

这样的东西

const API_KEY = "*******";
class List extends Component {
  state = {
    legislators: []
  }

  componentDidMount() {
    axios
      .get("https://api.propublica.org/congress/v1", {
        headers: { 'Authorization': API_KEY }
      })
      .then(data => console.log(data));
  }

如何将工作表名称分配给我从该范围创建的名称？

Answer 1

假设可能有比G3：G5中指定的更多的工作表，这可能会有效。

Dim r As Range, c As Range, x As Long
Set r = wsWithSheetNames.Range("G3:G5").SpecialCells(xlCellTypeConstants)
ReDim ws1(1 To r.Count)
For Each c In r
  x = x + 1
  Set ws1(x) = ThisWorkbook.Worksheets(c.Value)
Next c

如何将工作表设置为变量以用于其他方法（带循环）

1 个答案: