n = Sheets(j).[a65536].End(xlUp).Row 这个代码是什么意思？谢谢高手.

Sheets(j).Range("a3:l" & n).ClearContents

工作表sheet(j)的单元格A3到In内容清空
If Cells(i, 10) = Right(Sheets(j).Name, Len(Cells(i, 10))) Then

判断单元格cells(i,10)和工作表sheet(j)的右边几个字符是否相同，右边字符的个数取决于单元格cells(i,10)的字符串长度
Sheets(j).Cells(s, k) = Cells(i, k)单元格Cells(i,k)内容赋值给Sheets(j).Cells(s, k)