gpt4 book ai didi

vba - Excel VBA-尝试根据值将值复制到汇总表

转载 作者:行者123 更新时间:2023-12-02 10:10:18 32 4
gpt4 key购买 nike

在我的文件中,我有一个与摘要页面 A 列中的值相对应的工作表名称列表。我想从每张工作表中提取单元格 B6 中的值,并将其粘贴到摘要表中该客户的相应行中。我一直在尝试根据 A 列中的值查找要复制和粘贴的内容,方法是从以 A 列文本值命名的工作表中进行复制,但我得到了“下标超出范围” "Worksheets(a).Range("B6").Copy 问题出现错误。代码如下:

Sub columnfiller()
Dim i As Integer

Dim a As String

a = Worksheets(2).Cells(7 + i, "A").Text

For i = 3 To Worksheets.Count
Worksheets(a).Range("B6").Copy
ActiveSheet.Paste Destination:=Worksheets(2).Cells(7 + i)
Next i
End Sub

7+i 是对表格中第一个单元格的引用。

最佳答案

未经测试。我想这就是你想要的。我没有循环工作表,而是循环了 A 列。

Sub columnfiller()

Dim lastRow As Long
Dim summaryWs As Worksheet
Dim ws As String

Set summaryWs = WorkSheets(2)

With summaryWs

lastRow = .Cells(.Rows.count, "A").End(xlUp).Row

For I = 7 To lastRow 'you didn't initiate i so guessing first row is 7

ws = .Cells(I, 1)
.Cells(I, 2) = WorkSheets(ws).Range("B6") 'not sure if you need formatting. this does not have formatting

Next

End With

End Sub

关于vba - Excel VBA-尝试根据值将值复制到汇总表,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/36942278/

32 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com