Excel 常用命令

Sheets("Sheet1").Rows(1).Delete shift:=xlUp 
插入行
Cells(2, 1).EntireRow.Insert 
Rows(2).Insert 
Range("2:2").Insert

sheet1中的第一行复制到sheet2

Sheets(1).Range("A1").EntireRow.Copy Sheets(2).Range("A1")

if使用列子

Sub judge()
If Sheet1.Range("B2") >= 90 Then
Sheet1.Range("B3") = "优秀"
ElseIf Sheet1.Range("B2") >= 80 Then
Sheet1.Range("B3") = "良好"
ElseIf Sheet1.Range("B2") >= 60 Then
Sheet1.Range("B3") = "及格"
Else
Sheet1.Range("B3") = "不及格"
End If

End Sub