EXCEL
关注
分享
扫一扫
hello_restart
这个作者很懒，什么都没留下…
展开
-
EXCEL（替换单元格内字符串）
Sub Replacement() Range("A:A").Replace _ What:="市", Replacement:="区", _ LookAt:=xlPart, SearchOrder:=xlByRows, _ MatchCase:=TrueEnd Sub参数选择和find方法类似。表达式.Replace(What,R...原创 2019-11-19 16:31:03 · 1301 阅读 · 0 评论 -
EXCEL（查找特定内容的单元格）
5-1 使用Find方法查找特定信息查询匹配的值：Sub FindCell() Dim StrFind As String Dim rng As Range StrFind = InputBox("请输入要查找的值：") If Len(Trim(StrFind)) > 0 Then With Sheet1.Range("A:A") ...转载 2019-11-19 15:32:02 · 4069 阅读 · 0 评论 -
EXCEL（使用SpecialCells方法定位单元格）
Sub SpecialAddress() Dim rng As Range Set rng = Sheet1.UsedRange.SpecialCells(xlCellTypeFormulas) '定位含有公式的单元格 rng.Select MsgBox "工作表中有公式的单元格为： " & rng.Address Set rng = Nothing...原创 2019-11-19 13:29:45 · 3301 阅读 · 1 评论 -
EXCEL（ 获得指定列的最后一个非空单元格）
Sub LastCell() Dim rng As Range '定义变量 Set rng = Cells(Rows.Count, 1).End(xlUp) '获取指定列最后一个非空单元格也可以写为 Cells(Rows.Count, [A]).End(xlUp) If rng.Value = "" Then MsgBox "该列没有非空单元格" Else...原创 2019-11-19 11:40:56 · 1366 阅读 · 0 评论 -
EXCEL（选定单元格区域的方法）
2-1 使用Select方法选定单元格区域 选中工作表：Sheets("Sheet2").Activate 选中区域：Sheets("Sheet2").Range("A1:B10").Select2-2 使用Activate方法选定单元格区域Sub RngActivate() Sheets("Sheet2").Activate Sheet...原创 2019-11-19 10:56:00 · 1029 阅读 · 0 评论 -
Excel（单元格的引用方法）
1-1 使用Range属性引用单元格区域 选中区域：Range("A1:B4, D5:E8").Select 引用随机函数赋值给单元格：Range("A1").Formula = "=Rand()" 或者 Range("A1:B4, D5:E8").Formula = "=Rand()" 设置斜体：Range("A1", "B4").Font.It...原创 2019-11-19 10:35:01 · 856 阅读 · 0 评论