[已解决]修正代码（已解决）

L2006201506

                    myrow = [a:az].Find("姓名", lookat:=xlWhole).Row
                    mycolumn = [a:az].Find("姓名", lookat:=xlWhole).Column
                    i = [a65535].End(xlUp).Row
                    j = ThisWorkbook.Sheets("Sheet1").[a65535].End(xlUp).Row + 1
                    Range(Cells(myrow, mycolumn) & ":az" & i).Copy ThisWorkbook.Sheets("Sheet1").Range("A" & j) '.CurrentRegion
红色代码目的是选定“”有姓名数据单元格至有数据最后一个单元格“”区域，但目前出了问题，请各位大师不吝赐教，谢谢！

最佳答案

月排行榜 / 总排行榜

苏子龙

2016-12-5 13:28

Range(Cells(myrow, mycolumn), "az" & i).Copy

跳转到最佳答案楼层

望帝春心

提问请上传EXCEL压缩文件

望帝春心

Range(Cells(myrow, mycolumn) & ":az" & i)这种写法大概就不对吧

苏子龙

Range(Cells(myrow, mycolumn), "az" & i).Copy