列转行，怎么把不规则的表转换为规则的表？

jiaqitang

请看附件，原表在“OLD” sheet上，表头有很多合并的单元格，用来把表中的值分类。现在想把它转为行，列，没有合并的单元格的规则表。

新表的样式在“NEW”sheet上。 原表只需复制黄色区域的值到新表，加了一个“YEAR” 列，值等于工作簿名的后缀。还有一个新列“DeductibleType”, 这一列的值就是原表第一行那些合并单元格里的值，就是列名转为行值了，原表每个合并单元格下边对应的值放到新表相应的位置。

新表的列名可以预先写好，只把原表对应的值转过来。

好像用POWERQUERY更简单些，VBA可以实现吗？

jiaqitang

老师们呢，给点意见

shiruiqiang

arr=sheets(1).usedrange
for y=1 to ubound(arr,2)-1
arr(1,y+1)="" then arr(1,y+1)=arr(1,y)
for x=1 to 2
if(x+1)="" then
这样就取消了合并单元格，并填充好了标题
新手路过，不包售后

ykcbf1100

看英文太吃力了。