通过VBA实现Excel批量克隆单元格__excel如何批量合并单元格

相关文章推荐

活泼的小马驹 · 新一轮数通周期下的光模块_澎湃号·湃客_澎湃 ...· 3 月前 ·

天涯 · 蔚来汽车会倒闭吗？总裁：绝无倒闭可能，可放心 ...· 10 月前 ·

讲道义的松树 · 口碑品质俱佳 ...· 1 年前 ·

星星上的斑马 · 每日车闻：宋PLUS ...· 1 年前 ·

爱旅游的西红柿 · 马东锡（韩国演员）_百度百科· 1 年前 ·

1、按下Alt+F8，给宏起名(比如copy)，点击创建

2、新创建的宏主体部分是空白的，在sub和end sub之间粘贴以下脚本

Sub copy()
'快捷键 Ctrl+r
On Error GoTo ErrorHandler
Application.CutCopyMode = False
Selection.copy
Dim co, ro, hi, wi As Integer
'co起始列，ro起始行，hi需要合并的行数，wi需要处理的列数
co = Selection.Column
ro = Selection.Row
hi = Selection.Rows.Count
wi = Selection.Columns.Count
ActiveSheet.Cells(ro, co + wi).Select
'如果需要向下粘贴单元格，注释掉上一行，并取消注释下面一行
'ActiveSheet.Cells(ro + hi, co).Select
Dim m As Integer
m = 0
m = InputBox("请输入您需要拷贝的数量", "请输入")
While m > 0
    If WorksheetFunction.CountA(Selection.Resize(hi, wi)) = 0 Then
    ActiveSheet.Paste
    End If
ActiveCell.Offset(0, wi).Select
'如果需要向下粘贴单元格，注释掉上一行，并取消注释下面一行
'ActiveCell.Offset(hi, 0).Select
m = m - 1
ActiveSheet.Cells(ro, co).Select
ErrorHandler:
End Sub

3、完成后关闭编辑窗口

4、按Alt+F8，选项，设置快捷键（比如Ctrl+r）

5、选中要复制的内容

通过VBA实现Excel批量克隆单元格_Excel VBA 复制