<div class="top" id="topPart"> <img src="imgs/top.png" alt=""/></div><div class="nav" id="navBar"> <img src="imgs/nav.png" alt=""/></div><div class="m ...
分类：
其他好文 时间：
2018-12-02 22:44:42
阅读次数：
167
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 Ran... ...
分类：
编程语言 时间：
2018-11-30 00:42:23
阅读次数：
181
sheet1 表1 sheets(1) 表格中的第一张表 sheets("十月")表格中的“十月”的那张表 ...
分类：
编程语言 时间：
2018-11-30 00:40:21
阅读次数：
198
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... ...
分类：
编程语言 时间：
2018-11-30 00:38:13
阅读次数：
172
Sheet1.Activate Sheet1.Range("a1").Select '选择前需要先激活 application.goto Sheets(1).Range("A1") '激活工作表和选择单元格在同一语句完成 Resize(2, 3).Select 'resize只对于单元格 不对于可见 ...
分类：
编程语言 时间：
2018-11-30 00:37:26
阅读次数：
193
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 shis... ...
分类：
编程语言 时间：
2018-11-30 00:36:27
阅读次数：
224
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.... ...
分类：
编程语言 时间：
2018-11-30 00:34:20
阅读次数：
197
