鞠勇鸿的技术专栏

EXCEL的列名与列序号 之前转换

Sheet1.UsedRange.Rows.Count'一般是用此种方式能取到最后一行的行标，但是如果Excel表的第一行是空的，就会导致只取Used Range（使用区域）的总行数。'举个栗子，如果一个表,只有A2单元格里有内容，那上一条的返回值就是1，因为使用区域只有一行的。'取到最后一行的行标方法如下：Sheet1.UsedRange.Cells(sht3.UsedRange.Rows.Count,1).row'Cells(使用区域的最后一行,第一列).行标...

Copy + Paste大法，其实自己个录个宏就行的Range("C18").SelectSelection.CopySelection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False代码自己手工改改，如下：Sheet1.Range("C18").CopySheet1.Range("C18").PasteSpecial Paste:=xlPaste

Application.GoTo Reference:=SheetData.Range("A" & SheetData.ChartObjects(1).TopLeftCell.Column), Scroll:=True Application.GoTo Reference:=sheetdata.Range("A1"), Scroll:=True With ActiveSheet.Shapes(1).TopLeftCell R = .Row ...

1、选择适用的单元格范围；2、新建条件格式-->使用公式确定要设置格式的单元格：输入公式 =OR(CELL("row")=ROW(),CELL("col")=COLUMN())3、选择一种背景色4、Alt+F11，代码如下：Private Sub Worksheet_SelectionChange(ByVal Target As Range) Application.ScreenUpdating = False Application.ScreenUpdating =...

Sheet1.Shapes("PIC").CopyPicture ‘对图形命名为PIC，也可以用序号调用Shapes(1) With Sheet1.ChartObjects.Add(0, 0, Sheet1.Shapes("PIC").Width, Sheet1.Shapes("PIC").Height).Chart .Paste .Export ThisWorkbook.Path & "\a.png" .Parent.Delete...

SheetChat.ChartObjects(1).chart.Export "c:\a.gif"SheetChat.ChartObjects("Chart1").chart.Export "c:\a.jpg"

Dim WordApp As ObjectSet WordApp = CreateObject("Word.Application")WordApp.Visible = TrueDim WordDoc As ObjectSet WordDoc = WordApp.Documents.Open(ThisWorkbook.Path & "\TEST.docx")PicPath="图片地址"WordApp.ActiveDocument.Bookmarks("BM1_1").Range.Se.

Function ReadUTF8File(ByVal FileName As String) As String With CreateObject("ADODB.Stream") .Type = 2 '读取 .Mode = 3 '读写模式 .Open .LoadFromFile FileName .Charset = "UTF-8" '编码格式 .Position = 2 .

'测试：将“abc@@eee”中的@@提取出来Sub test() MsgBox GetValueByRegex("abc@@eee", "abc(.*?)eee")End SubFunction GetValueByRegex(ByVal OrgStr As String, ByVal PatternStr As String) Set re = CreateObjec...

'列号转字母（列名）Function Num2Name(ByVal ColumnNum As Long) As String On Error Resume Next Num2Name = "" '超出范围返回空，如调用Num2Name(100000) Num2Name = Replace(Cells(1, ColumnNum).Address(0, 0), "1", ...

ASC码值：10调用：Chr(10)，可以用 & 连接字符串="A" & Char(10) & "B"注意：要单元格“自动换行”开启的，否则不会换行。

为空：""=sumifs(A:A,B:B,"")不为空："<>"=sumifs(A:A,B:B,"<>")

LOOKUP模糊查找精确查找多条件精确查找

Sub test() MsgBox CheckIsExistsSheetName("Sheet1")End SubFunction CheckIsExistsSheetName(ByVal SheetName) As Boolean CheckIsExistsSheetName = False Dim sheet As Worksheet For Each ...

EXCEL根据条件取最大值、最小值

方法1－格式：（不完全）设置单元格格式－&gt;特殊 －&gt; 中文大写数字这种方式，只能得到大写的数字，不会含有元、角、分等信息。 方法2－公式：（完美）=IF(A2=0,"",IF(A2&lt;0,"负","")&amp;SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(TEXT(INT(ABS(A2)),"[DBNum2]")&am

Sheets("Sheet1").Range("A1:B1").Value = Array(1, 2) 

打开一个工作簿。语法表达式 . Open( FileName , UpdateLinks , ReadOnly , Format , Password , WriteResPassword , IgnoreReadOnlyRecommended , Origin , Delimiter , Editable , Notify , Converter , AddToMru , Local ,...

'列号转字母（列名）Function Num2Name(ByVal ColumnNum As Long) As String On Error Resume Next Num2Name = "" '超出范围返回空，如调用Num2Name(100000) Num2Name = Replace(Cells(1, ColumnNum).Address(0, 0), "1", ...

'文件名（不带路径） ABC.xlsxThisWorkbook.Name'文件名不带扩展名 ABCLeft(ThisWorkbook.Name, InStr(ThisWorkbook.Name, ".") - 1)'带全路径的文件名 C:\Folder\ABC.xlsxThisWorkbook.Path &amp; "\" &amp; thisworkbook.Name  ...

'方法1Sheet1.Labels("标签 1").Caption = "标签内容"     Sheet1.Buttons("按钮 1").Caption = "开始按钮"     Sheet1.CheckBoxes("复选 1").Value = xlOn     Sheet1.OptionButtons("选项按钮 1").Value = xlOn     Sheet1.L

Dim WordApp As ObjectSet WordApp = CreateObject("Word.Application")WordApp.Visible = TrueDim WordDoc As ObjectSet WordDoc = WordApp.Documents.Open(ThisWorkbook.Path & "\AAA.docx") '工作簿同一目录下的A...

思路：1、Word建书签，不会的自己百度；2、EXCEL中复制；3、Word中找到书签并选中，粘贴或复制。注意：一定要在EXCEL工具－引用 “Microsoft Word 1?.0 Object Library”，否则一些Word中的类无法使用的。Sub test()Dim Sheet As WorksheetSet Sheet = ThisWorkbook.Shee...

With Sheet2.UsedRange .Value = .ValueEnd With

 //调用的方法Microsoft.Office.Interop.Excel.Application app = new Microsoft.Office.Interop.Excel.Application();string filename = StartupFilePath + "\\a.xlsx" + ;app.Visible = false; //不显示EXCELapp.D...

VBA中没有定时器，但是可以使用 “Application.OnTime 时间,过程名”的方式来做一个定时器 Public TimerEnabled As Boolean Sub EnableTimer() '开始 TimerEnabled = True StartTimer End Sub Sub DisableTimer() '停用 Ti...

Excel获得第N名的行号（中国式排名）

EXCEL：使用VLOOKUP逆向取数据的方法，,IF({1,0}用法

EXCEL 汉字转拼音

EXCEL-SUMIFS多条件求和（筛选效果）

EXCEL函数实现从列数据中提取不重复值

1、EXCEL－开发工具中Visual Basic2、Sheet1上右键插入模块3、代码粘贴Function CountByBGColor(Col As Range, CountRange As Range) '根据背景颜色计数Application.Volatile'用于将用户自定义函数标记为易失性函数，无论何时在工作表的任意单元格中进行计算时，易失性函数

1、”G/通用格式”：以常规的数字显示，相当于”分类”列表中的”常规”选项。 例：代码：”G/通用格式”。10显示为10；10.1显示为10.1。2、 “#”：数字占位符。只显有意义的零而不显示无意义的零。小数点后数字如大于”#”的数量，则按”#”的位数四舍五入。 例：代码：”###.##”,12.1显示为12.10;12.1263显示为：12.133、”0”：数字占位符。如果单元格的内容大于占

EXCEL建立两个Y轴，很实用的功能。

Sub XXX() Dim arr() arr = Application.GetOpenFilename("所有支付文件 (*.xls;*.xlsx;*.csv),*.xls;*.xlsx;*.csv,Excel 文件 (*.xls),*.xls,Excel2007 文件 (*.xlsx),*.xlsx,CSV 文件 (*.csv),*.csv", , "选择文件", , T

Sub XXX() Application.DisplayAlerts = False '代码段 Application.DisplayAlerts = TrueEnd Sub以下是MICROSOFT  给出的说明原文语法 表达式 .DisplayAlerts表达式 一个表示应用程序对象的变量。

方式一： =INDIRECT("B2")方式二： =INDIRECT("Sheet1!B2")方式三： =INDIRECT(E1&"!B2")方式四： =INDIRECT(E1&"!"&E2)

EXCEL：SUMIFS多条件求和2（筛选效果），含字符串转数组用法

EXCEL：统计某个字符串中，某字符或某字符串出现的次数