Excel中的VBA宏语言的研究

单列查重：

不同列查重并且交换赋值/单列查重并且汇总赋值：

第一列有空单元格的整行删除，保留有内容的单元格：

将f列有内容的单元格的整行选中（有漏洞！要确认空单元格是否真的为空，有时候会存在非空null的情况。）：

添加末尾的特殊字符，便于提取分段数据；一般以下面一个代码共同使用：

判断赋值：

判断赋值进阶：

判断赋值进阶2：

判断赋值进阶3：

判断赋值进阶4：

判断赋值进阶5：

判断赋值进阶6：

判断赋值进阶7：

混合运算赋值：

简易FOR循环：

FOR循环进阶：

FOR循环进阶2：

FOR循环进阶3：

Do_Loop循环：

Do_While循环：

Do_Loop Until循环：

Set：

FOR循环A：

FOR循环B：

GoTo：

GoSub：

On Error Resume Next：

On Error GoTo 100：

On Error GoTo 0：

On Error Resume Next：

Resize：

Union：

Select：

？：

Selection2：

Select3：

Formula：

Address：

CurrentRegion：

CurrentRegion2：

运行错误：

With Range：

With Range2：

With Range3：

ColorIndex：

Interior.Color：

DisplayAlerts：

Chr：

Copy：

Paste：

Cut：

运行失败：

Range值：

FillDown：

Insert：

Insert2：

Insert3：

Insert4：

Insert5：

M列非空单元格选中，修改内容：

SpecialCells：

选取单元格区域内值为2的单元格：

选择的部分查找替换文本：

区域特殊单元格空格选中，负值为1：

查找相同项复制需要项粘贴到需要位置：

EXCEL中vba查找替换 b列是初始值，c列是结果 如何当遇见2时，把2下面一行也变成2：

    SelectA：

定义范围向右偏移一列选中：

单列的空单元格整行选中：

C列非空单元格选中，并修改其内容：

将h列有内容的单元格的整行选中：

等比数列：

查找工作表最后一行的行数：

MsgBox：

选择的部分查找替换文本之进阶：

区域特殊单元格空格选中，负值为1：

查找工作表最后一行的行数：

一维数组：

数组：

第一列单元格内容文本连接：

截取单元格文本后2位：

去掉单元格后2位字符：

连接两列单元格字符串：

1000比例图幅号生成，批量导入调图（根据CAD生成的图幅号TXT）注：导入的TXT文件最后的字符串要删去：

500图幅号生成（根据CAD生成的图幅号TXT）注：导入的TXT文件最后的字符串要删去！以a1为插入点：

特殊字符分割的数据，分段提取！特殊字符提取时要留心处理：

 SQL图斑预编号查询是否存在，不存在DB中的话，需要到内网上下载后加载到DB中：

SQL图斑预编号查询是否存在，不存在DB中的话，需要到内网上下载后加载到DB中：

  字典的使用！

  字典方法一：引用法【'工具-引用-浏览-找到scrrun.dll-确定】

  字典方法二：Set d = CreateObject("scripting.dictionary")

1、 装入数据：

2、 读取数据：

3、 修改数据：

4、 删除数据：

    字典进阶使用：

    字典查找相同项并且赋值。。。总感觉没有for循环读值快。。。但可以跨表读值：