r=的那一行代码做修改r=wk.sheets(1).cells(x,columns.count).end(xltoleft).column+1x是行号,看楼主要统计哪一行的最左侧行号+1
如果是某一行(如第一行)的最大列用:r=wk.Sheets(1).Cells(1,256).End(xlToLeft).Column