xc0719

摘要： Sheet1.Activate Sheet1.Range("a1").Select '选择前需要先激活 application.goto Sheets(1).Range("A1") '激活工作表和选择单元格在同一语句完成 Resize(2, 3).Select 'resize只对于单元格 不对于可见 阅读全文

摘要： Sub shishi() Dim rng As Range For Each rng In Range("b2:b20") If rng.Offset(0, -1) = "男" Then rng = "先生" Else: rng = "女士" End If Next End Sub Sub shishi() Dim i As Integer... 阅读全文

摘要： Sub ss() Dim biao As Worksheet Excel.Application.DisplayAlerts = False For Each biao In Sheets If biao.Name "绝不能删" Then biao.Delete End If Next Excel.Application.DisplayAlerts =... 阅读全文

摘要： sheet1 表1 sheets(1) 表格中的第一张表 sheets("十月")表格中的“十月”的那张表 阅读全文

摘要： Sub sd() Dim i As Integer For i = 2 To 2000 If Range("b" & i) = "" Then Exit For End If If Range("b" & i) = "理工" Then Range("c" & i) = "LG" ElseIf Range("b" & i) = "文科" The... 阅读全文

摘要： Sub gzt() Dim i As Integer For i = 1 To 10 Selection.Copy ActiveCell.Offset(2, 0).Rows("1:1").EntireRow.Select Selection.Insert Shift:=xlDown Next End Sub 阅读全文