n = Sheets(j).[a65536].End(xlUp).Row 还有以下这几个代码:Sheets(j).Range("a3:l" & n).ClearContentsIf Cells(i,10) = Right(Sheets(j).Name,Len(Cells(i,10))) ThenSheets(j).Cells(s,k) = Cells(i,k)
来源:学生作业帮助网 编辑:六六作业网 时间:2025/01/13 05:24:30
n = Sheets(j).[a65536].End(xlUp).Row 还有以下这几个代码:Sheets(j).Range("a3:l" & n).ClearContentsIf Cells(i,10) = Right(Sheets(j).Name,Len(Cells(i,10))) ThenSheets(j).Cells(s,k) = Cells(i,k)
n = Sheets(j).[a65536].End(xlUp).Row
还有以下这几个代码:
Sheets(j).Range("a3:l" & n).ClearContents
If Cells(i,10) = Right(Sheets(j).Name,Len(Cells(i,10))) Then
Sheets(j).Cells(s,k) = Cells(i,k)
n = Sheets(j).[a65536].End(xlUp).Row 还有以下这几个代码:Sheets(j).Range("a3:l" & n).ClearContentsIf Cells(i,10) = Right(Sheets(j).Name,Len(Cells(i,10))) ThenSheets(j).Cells(s,k) = Cells(i,k)
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)