1.读取sheet页【原始数据】中的B列只取唯一值,并将维一值写入到sheet页【批量处理】A列中 Subonly_data() DimmRng$,D,c SetD=CreateObject("scripting.dictionary")'因MSSQL防注入安全问题，这里的Create与Object之间是没有空格才是正确 ForEachcInSheets("原始数据").Range("B2:B9999") IfNotD.exists(c.Value)ThenD.Addc.Value,"" Nextc Sheets("批量处理").Range("

效果图如下： VBA代码下如： SubMain() DimstrText,URL,CityFrom,CityToAsString Dimdis,mtime CityFrom=Sheet1.Range("B2").Value'假想值为江门 CityTo=Sheet1.Range("C2").Value''假想值为深圳 IfCityFrom=""OrCityTo=""Then MsgBox"开始或终点地址为空！" Else URL="http://map.baidu.com/?" URL=URL&"qt=nav"

邮件合并：在Office中，先建立两个文档：一个WORD包括所有文件共有内容的主文档（比如未填写的信封等）和一个包括变化信息的数据源EXCEL（填写的收件人、发件人、邮编等），然后使用邮件合并功能在主文档中插入变化的信息，合成后的文件用户可以保存为Word文档，可以打印出来，也可以以邮件形式发出去。 我这个文件,针对word的邮件合并,有以下优势： 1.邮件合并只能一对一的输出.但我用excel的分类输出,是可以将同一类型的数据,多行合并在一个sheet页上显示. 2.若需要表格并多行输出时,邮件合并是不好实现,而我这表就解决这个问题. 3

备忘录1: '删除重复记录 SubRemoveDuplicateRecord() DimRow0AsLong,Row1AsLong WithWorksheets("Sheet1")'工作表名称 Row0=.Cells(1048576,1).End(xlUp).Row .UsedRange.RemoveDuplicatesColumns:=Array(1,2,3,4,5,6,7,8),Header:=xlYes Row1=.Cells(1048576,1).End(xlUp).Row EndWith 'MsgBox"共删除"&Row0-Row1&"("&