excel宏解释

来源：百度知道 编辑：UC知道 时间：2024/07/01 22:12:10
excel宏里面的东西，各位大虾，谁能解释一下东东啊？
特别是myrow, rowcounter, 还有check blank要怎样check？

Sheets("Sheet1").Select
MyRow = 1
For RowCounter = 1 To 60

CheckBlank = ActiveWorkbook.ActiveSheet.Cells(MyRow, 19).Value

If CheckBlank = "N" Then

ActiveWorkbook.ActiveSheet.Cells(MyRow, 1).Select
Selection.EntireRow.Delete
MyRow = MyRow - 1

Else

End If

MyRow = MyRow + 1
Next RowCounter

Columns("A:T").Select
Selection.Delete Shift:=xlToLeft

myrow, rowcounter, checkblank都是一个变量，跟英文意思无关
Sheets("Sheet1").Select 选定工作表sheet1
MyRow = 1 变量赋值 1
For RowCounter = 1 To 60 变量 rowcounter 由 1 到 60 循环

CheckBlank = ActiveWorkbook.ActiveSheet.Cells(MyRow, 19).Value
给变量赋值，可简化成 CheckBlank = Cells(MyRow, 19)
If CheckBlank = "N" Then
如果变量checkblank 的值为 N，那么
ActiveWorkbook.ActiveSheet.Cells(MyRow, 1).Select
Selection.EntireRow.Delete
选定活动工作簿、活动工作表的第myrow行、第一列的单元格
选定单元格，扩展到整行，删除
上面两句可合并成一句Cells(MyRow, 1).Delete
MyRow = MyRow - 1
变量的值 减1
Else
否则，此句多余
End If
结束 if
MyRow = MyRow + 1 变量值 加1
Next RowCounter 循环返回

Columns("A:T").Select 选定A到T列
Selection.Delete Shift:=xlToLeft 删除选定的列，右则单元格左移

myrow, rowcounter, checkblank应该是自己定义的变量
删除60行内第19列单元格内值为“N”的整行