2023年11月25日发(作者:)

For i = 1 To AreaNum

多重选定区域使用此命令。这个问题可以通过制作宏来解决。

按着Ctrl键挨个选择了单元格复制,如果单元格是同行或是同列,则没有

问题。但若是要复制的单元格不在同一行或是同一列的话,则会弹出不能对

线

使

线

线

线

线

线

线

线

线

线

Sub 多区域复制粘贴()

On Error Resume Next

ReDim SRange(1 To AreaNum)

MinR =

Dim i As Long, AreaNum As Long

Dim MinR As Long, MinC As Long

AreaNum =

2.进入刚刚录制的空宏进行编辑;

MinC =

1.首先,录制一个空宏,保存在个人宏工作簿

3将下述代码复制黏贴到打开的宏的vba编辑页面中。

Dim SRange() As Range, UPRange As Range, TRange As Range

不能对多重选定区域使用此命令处理方法

Next i

Next i

Title:="多区域复制粘贴", Type:=8)

End Sub

paste:=xlPasteValues

SRange(i).Copy

For i = 1 To AreaNum

Updating = True

Set SRange(i) = (i)

Updating = False

If SRange(i).Row < MinR Then MinR = SRange(i).Row

Set UPRange = Cells(SRange(1).Row, SRange(1).Column)

绑定在快速访问工具栏,这样以后可以直接点击调用。

If SRange(i).Column < MinC Then MinC = SRange(i).Column

Set TRange = ox(prompt:="选择粘贴区域的最左上角单元格",

(SRange(i).Row - MinR, SRange(i).Column - MinC).PasteSpecial

线

使

线

线

线

线

线

线

线

线

线

4保存并返回Excel工作表界面,我们利用自定义快速访问工具栏的方法将该宏

5操作完毕后,工具栏上将出现一个新的按钮。

线

使

线

线

线

线

线

线

线

线

线

9总结:

时候会按单元格排,而不是按住复制的单元格位置排列。

1任意选中区域可以原样粘贴到其他单元格;

6按住ctrl,并用鼠标选择任意单元格区域,按Alt+ 进行定位,否则黏贴的

按照原来的格式保持相对位置不变粘贴到了新的单元格区域。

2)可以完成将筛选状态单元格粘贴到同样筛选状态的表格中;

过的单元格内容,同时不影响被粘贴区域的字体格式、边框等。

7点击快速访问工具栏上刚刚插入的按钮——“多区域复制黏贴

8选择想要粘贴区域的最左上角单元格,点击确定,这时原选中区域的内容就

这样可以实现修改部分数据后进行更新原始区域的功能。也就是只更新变动

线

使

线

线

线

线

线

线

线

线

线

3)在要粘贴的区域只要数据不和选中区域冲突不影响被粘贴区域其他单元格