單列查重：

不同列查重并且交換賦值/單列查重并且匯總賦值：

第一列有空單元格的整行刪除，保留有內容的單元格：

將f列有內容的單元格的整行選中（有漏洞！要確認空單元格是否真的為空，有時候會存在非空null的情況。）：

添加末尾的特殊字符，便于提取分段數(shù)據(jù)；一般以下面一個代碼共同使用：

判斷賦值：

判斷賦值進階：

判斷賦值進階2：

判斷賦值進階3：

判斷賦值進階4：

判斷賦值進階5：

判斷賦值進階6：

判斷賦值進階7：

混合運算賦值：

簡易FOR循環(huán)：

FOR循環(huán)進階：

FOR循環(huán)進階2：

FOR循環(huán)進階3：

Do_Loop循環(huán)：

Do_While循環(huán)：

Do_Loop Until循環(huán)：

Set：

FOR循環(huán)A：

FOR循環(huán)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：

運行失?。?/span>

Range值：

FillDown：

Insert：

Insert2：

Insert3：

Insert4：

Insert5：

M列非空單元格選中，修改內容：

SpecialCells：

選取單元格區(qū)域內值為2的單元格：

選擇的部分查找替換文本：

區(qū)域特殊單元格空格選中，負值為1：

查找相同項復制需要項粘貼到需要位置：

EXCEL中vba查找替換 b列是初始值，c列是結果 如何當遇見2時，把2下面一行也變成2：

????SelectA：

定義范圍向右偏移一列選中：

單列的空單元格整行選中：

C列非空單元格選中，并修改其內容：

將h列有內容的單元格的整行選中：

等比數(shù)列：

查找工作表最后一行的行數(shù)：

MsgBox：

選擇的部分查找替換文本之進階：

區(qū)域特殊單元格空格選中，負值為1：

查找工作表最后一行的行數(shù)：

一維數(shù)組：

數(shù)組：

第一列單元格內容文本連接：

截取單元格文本后2位：

去掉單元格后2位字符：

連接兩列單元格字符串：

1000比例圖幅號生成，批量導入調圖（根據(jù)CAD生成的圖幅號TXT）注：導入的TXT文件最后的字符串要刪去：

500圖幅號生成（根據(jù)CAD生成的圖幅號TXT）注：導入的TXT文件最后的字符串要刪去！以a1為插入點：

特殊字符分割的數(shù)據(jù)，分段提取！特殊字符提取時要留心處理：

?SQL圖斑預編號查詢是否存在，不存在DB中的話，需要到內網上下載后加載到DB中：

SQL圖斑預編號查詢是否存在，不存在DB中的話，需要到內網上下載后加載到DB中：

? 字典的使用！

? 字典方法一：引用法【'工具-引用-瀏覽-找到scrrun.dll-確定】

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

1、 裝入數(shù)據(jù)：

2、 讀取數(shù)據(jù)：

3、 修改數(shù)據(jù)：

4、 刪除數(shù)據(jù)：

? ? 字典進階使用：

? ? 字典查找相同項并且賦值。。?？偢杏X沒有for循環(huán)讀值快。。。但可以跨表讀值：