效果图如下： 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"

解决方法： 1.分别打开word和excel，文件–选项 2.点击信任中心–信任中心设置 3.点击受保护的视图，将右侧三个复选框的勾去掉 问题解决!

1.第一个单元格开始选中要填充的数据区域; 2.按Ctrl+G或者F5调出定位对话框，点击左下角的【定位条件】; 3.在【定位条件】中选择【空值】，然后点击【确定】按钮，此时，所有的空白单元格就都被选中了; 4.按一下键盘上的等号,然后按一下键盘上向上的方向键，也就是↑ 5.Ctrl+Enter就快速完成了所有空白填充了.

备忘录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&"("&