小弟最近在烦恼专题
要整理EXCEL大量资料于是用VBA写了一段程式 如图


要将原本工作表的资料以横序的方式搬移到工作表一




上图是预计的资料呈现
但程式执行却只有跑储存格而资料没有到工作表一
还请各位只教
图中注解是后续有其他程式码因此先做注解
谢谢

录宏可以看程式码没修改前正常吗？

选了工作表1之后没有选回原工作表，第一圈之后变成一直在工作表1的i列复制空白的储存格贴到i-1列。如果只要贴上值的话直接 sheets(“工作表1”).range(sheets(“工作表1”).cells(i-1,a), sheets(“工作表1”).cells(i-1,a+23))= sheets(“原工作表”).range(sheets(“原工作表”).cells(i,1), sheets(“原工作表”).cells(i,23)).value 就可以了 不用一直复制贴上