《“填充”和“合并单元格”的宏示例》由会员分享,可在线阅读,更多相关《“填充”和“合并单元格”的宏示例(5页珍藏版)》请在金锄头文库上搜索。
1、“填充”和“合并单元格”的宏示例一、选择需要填充的区域二、运行“填充“宏后的结果:运行后有可能会出现一个提示框,不必管它。若想将相同内容的单元格合并一、选择该列二、然后运行“合并单元格”宏,运行结果如下:三、再选择四、再次运行的结果附件(两个宏的代码):Sub 向下填充()macro1 macro最后确定的向下填充的宏(由芜湖奇瑞信息公司蒋亮先生编制,2008 年 2 月)宏由 chery 录制,时间:2008-2-16Dim Sum1, Sum11, Sum2, Sum22, Tmp1, Tmp11, Tmp2, Tmp22 As Integer*定义选中区域的行数和列数*Tmp1 = Se
2、lection.RowTmp11 = Tmp1Tmp2 = Selection.ColumnTmp22 = Tmp2*获得起始行数和列数*Sum1 = Selection.Rows.CountSum11 = Sum1 + Tmp1Sum2 = Selection.Columns.CountSum22 = Sum2 + Tmp2For y = Tmp2 To Sum22For x = Tmp1 To Sum11msgbox cells(t mp1,tmp2).valueIf (IsEmpty(Cells(Tmp1, Tmp2).Value) ThenCells(Tmp1, Tmp2).Selec
3、tSelection.FillDownEnd IfTmp1 = Tmp1 + 1Next xTmp2 = Tmp2 + 1Tmp1 = Tmp11Next yEnd SubSub 合并任意列相同单元格()此宏 2011 年 10 月 26 日复制于 http:/ 网名 E 侠兔Dim a, b, i, m As Integera = Selection.Columnb = Cells(65535, a).End(xlUp).Rowi = 1 While i bm = 1While Cells(i + m, a) = Cells(i, a) 下同m = m + 1WendIf m = 1 The
4、ni = i + 1ElseRange(Cells(i + 1, a), Cells(i + m - 1, a).ClearContents 删除下方内容以便合并时不提示Range(Cells(i, a), Cells(i + m - 1, a).Merge 合并Range(Cells(i, a), Cells(i + m - 1, a).VerticalAlignment = xlCenter 垂直居中Range(Cells(i, a), Cells(i + m - 1, a).HorizontalAlignment = xlCenter 水平居中i = i + mEnd IfWendEnd Sub向 TA 求助 回答者: E 侠兔 来自团队 Office 助 | 七级采纳率:44% 擅长领域: 办公软件 参加的活动: 暂时没有参加的活动