求助各位前辈：想把整个工作簿中上方标题是A1下面32行全部复制到新表中

jsh123 · 发表于 2024-2-20 12:24

想把整个工作簿中上方标题为A1合并单元格下面的32行全部复制到新表中，在新表A列显示源数据所在的表名称

jsh123 · 发表于 2024-2-20 12:27

想把整个工作簿中除新表外的所有表中上方标题是A1合并单元格下面32行全部复制到新表中，在新表A列显示源数据所在的表名称

3190496160 · 发表于 2024-2-20 13:05

Sub 合并()
Set sh = Sheets("新表")
sh.UsedRange.Clear
m = 1
For Each sht In Sheets
If sht.Name <> "新表" Then
      y = sht.Cells(1, Columns.Count).End(xlToLeft).Column
      For j = 1 To y
         If sht.Cells(1, j) = "A1" Then
            sht.Cells(1, j).Resize(33, 7).Copy sh.Cells(m, 2)
            sh.Cells(m + 1, 1).Resize(32, 1) = sht.Name
            m = m + 33
         End If
      Next j
End If
Next sht
MsgBox "ok!             "
End Sub

3190496160 · 发表于 2024-2-20 13:06

3190496160 · 发表于 2024-2-20 13:06

新建 Microsoft Excel 工作表 (3).rar (21.31 KB, 下载次数: 10)

		自动登录	找回密码
密码			免费注册

[求助] 求助各位前辈：想把整个工作簿中上方标题是A1下面32行全部复制到新表中

评分