vba单元格批量赋值,通过VBA实现Excel批量克隆单元格

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

Wend

ActiveSheet.Cells(ro, co).Select

ErrorHandler:

End Sub

3、完成后关闭编辑窗口

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

5、选中要复制的内容

6、Ctrl+r(自定义的快捷键)，输入要复制的数量并回车执行

7、脚本将从当前区域右侧开始执行粘贴动作

8、复制过程中，遇到存在数据的区域，将会跳过(仍然计数)

注意事项：Excel需要启用宏

本文来自互联网用户投稿，文章观点仅代表作者本人，不代表本站立场，不承担相关法律责任。如若转载，请注明出处。 如若内容造成侵权/违法违规/事实不符，请点击【内容举报】进行投诉反馈！