怎么把表头及表头下数据分别提取到GH列

a364945937

各位大神帮帮忙数据超级多，类似的表有100个要做，怎么把表头(表格名称不固定)及表头下数据（不固定有缺失）分别提取到GH列。

Jaofuan

1. Sub jaofuan()
   
2.     ar = Sheet1.Range("A1").CurrentRegion
   
3.     ReDim br(1 To UBound(ar) * 5, 1 To 2)
   
4.     For i = 1 To UBound(ar, 2)
   
5.         For j = 2 To UBound(ar)
   
6.             If ar(j, i) = "" Then Exit For
   
7.             p = p + 1
   
8.             br(p, 1) = ar(1, i)
   
9.             br(p, 2) = ar(j, i)
   
10.         Next
    
11.     Next
    
12.     Sheet1.[i2].Resize(UBound(br), 2) = br
    
13. End Sub

复制代码

a364945937

Jaofuan 发表于 2019-11-9 10:40

亲，运行时出错424

Jaofuan

a364945937 发表于 2019-11-9 11:13
亲，运行时出错424

没发现哪里有问题

a364945937

Jaofuan 发表于 2019-11-9 11:19
没发现哪里有问题

大神，为什么我直接复制代码到宏里面，然后启动就会出错哈？

Jaofuan

a364945937 发表于 2019-11-9 12:49
大神，为什么我直接复制代码到宏里面，然后启动就会出错哈？

因素太多了，解释不清除

a364945937

Jaofuan 发表于 2019-11-9 12:52
因素太多了，解释不清除

好吧，不过数据一大报错：下标超出范围，有办法解决吗？

Jaofuan

a364945937 发表于 2019-11-9 13:13
好吧，不过数据一大报错：下标超出范围，有办法解决吗？

我模拟了1万多行没见报错，实在不行不把你的原表发给我看下？

a364945937

Jaofuan 发表于 2019-11-9 13:18
我模拟了1万多行没见报错，实在不行不把你的原表发给我看下？

找到原因了，原表列增加了，我5改成8成功了，真的非常感谢哈