1、if是VBA的关键字,不能作变量吧?
2、行列更换只要将Cells(i, j)中的i,j位置换一下即可。但要确定是从第几行开始写。
For i = 1 To Range("A1048576").End(xlUp).Rows 这一句要改一下,先写
rowX=Range("A1048576").End(xlUp).Rows 再写
For i = 1 To rowX
这样,可以确定从第几行开始写,Cells(i, j) = Mid(Range("A" & i).Value, ia, 1) & ......
改成:Cells(j+rowX-14, i) = Mid(Range("A" & i).Value, ia, 1) & ......
测试一下吧
本文如未解决您的问题请添加抖音号:51dongshi(抖音搜索懂视),直接咨询即可。