gpt4 book ai didi

excel - 在工作簿的所有工作表中查找特定的列标题

转载 作者:行者123 更新时间:2023-12-02 20:45:28 25 4
gpt4 key购买 nike

我正在尝试创建一个宏,它将浏览工作簿中的所有工作表并找到名为“ID”的列。大多数工作表中都会有一个“ID”列,但标题不一定位于第 1 行。找到该列后,我想将该列中的所有数据复制到新工作表中。将数据复制到新工作表时,我希望将数据全部复制到新工作表的 A 列中 - 因此希望将数据复制到下一个空白单元格中。到目前为止,这就是我所得到的

Sub Test()

Dim ws As Worksheet
Dim sString As String
Dim sCell As Variant
Dim cfind As Range
Dim j As Integer

For Each ws In Worksheets
If ws.Name = "Archive" Then GoTo nextws
ws.Activate
j = ActiveSheet.Index
'MsgBox j
On Error Resume Next
Set cfind = Cells.Find(what:="ID", lookat:=xlWhole)
If Not cfind Is Nothing Then
cfind.EntireColumn.Copy
Worksheets("Archive").Range("A1").Offset(0, j - 1).PasteSpecial
End If
nextws:
Next ws

End Sub

我似乎无法正确粘贴数据的最后一点。目前,它只是将其粘贴到下一个可用列中。

最佳答案

那么,您希望将所有内容都放在 A 列中,对吧?

更改为

With Worksheets("Archive")
If .Range("A1") = "" Then
.Range("A1").PasteSpecial
Else
.Range("A1").Offset(.UsedRange.Rows.Count).PasteSpecial
End If
End With

来自

Worksheets("Archive").Range("A1").Offset(0, j - 1).PasteSpecial

关于excel - 在工作簿的所有工作表中查找特定的列标题,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/6074182/

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