Sub删除空格()Dimi%Fori=1To10Cells.ReplaceWhat:="",Replacement:="",LookAt:=xlPart,SearchOrder:=_xlByRows,MatchCase:=False,MatchByte:=FalseNextiEndSubSub删除工作簿中所有表中的空格()Dimi%DimjAsIntegerForj=1ToWorksheets.CountWorksheets(j).SelectFori=1To10Cells.ReplaceWhat:="",Replacement:="",LookAt:=xlPart,SearchOrder:=_xlByRows,MatchCase:=False,MatchByte:=FalseNextiNextjEndSubSub比较两列数据不同之处()''比较两列数据不同之处Macro'宏由罗艳军录制，时间:2009-9-18'DimhsAsIntegerDimiAsIntegerhs=Range("a65536").End(xlUp).RowFori=1TohsIfRange("A"&i).Value<>Range("B"&i).ValueThenMsgBox"注意第"&i&"行数据不同"ExitSubEndIfNextiMsgBox"现在两列数据完全相同"EndSubSub在A列中查找B列没有的数据()'宏由罗艳军录制，时间:2009-10-1DimhsAsIntegerDimiAsIntegerhs=Range("a65536").End(xlUp).RowFori=1Tohs'Debug.PrintiIfColumns("B").Find(Range("A"&i).Value)IsNothingThenMsgBox"注意，没有"&"A"&iExitSubElseEndIfNextiMsgBox"现在A列有的数据B列中全有了！"EndSubSub合并两列数据()'使用本程序前，请把光标停在第二列的第一行DoWhileActiveCell<>""'一直循环，直到活动单元格为空。ActiveCell.Offset(0,1).FormulaR1C1=_ActiveCell.Offset(0,-1)&ActiveCell.Offset(0,0)ActiveCell.Offset(1,0).SelectLoopEndSubSub区域兑换()DimXRAsRange,YRAsRangeDimSZ1,SZ2,DownIfSelection.Areas.Count=2ThenSetXR=Selection.Areas(1)SetYR=Selection.Areas(2)IfNotIntersect(XR,YR)IsNothingThenDown=MsgBox("选择区域有重叠！"&vbCrLf&_"对换后数据将有部份被覆盖！"&vbCrLf&_"是否继续？",vbYesNo)IfDown=vbNoThenExitSubEndIfIfXR.Rows.Count=YR.Rows.CountAndXR.Columns.Count=YR.Columns.CountThenSZ1=XR.FormulaSZ2=YR.FormulaXR=SZ2YR=SZ1ElseMsgBox"选择的两个区域不相同！"EndIfElseMsgBox"请选择二个相同的区域！"EndIfEndSubSub把A列中有而B列中没有的数据挑出来放在C列中()'宏由罗艳军录制，时间:2010-8-26DimhsAsIntegerDimiAsIntegerDimcAsIntegerc=1hs=Range("a65536").End(xlUp).RowFori=1Tohs'Debug.PrintiIfColumns("B").Find(Range("A"&i).Value)IsNothingThenRange("c"&c).Value=Range("A"&i).Valuec=c+1EndIfNextiMsgBox"现在A列有的数据B列中全有了！"EndSub‘用数组分班OptionBase1SubMacro2()'Macro2Macro'宏由罗艳军录制，时间:2010-9-15'初始化DimxsrsAsIntegerxsrs=298DimbjsAsIntegerDimxssz(298,9)bjs=6'xssz=Sheet1.Range("A2:G299")'工