请问VBA如何不连续区域复制粘贴，空白区域不改动

ais9009

maditate 发表于 2019-7-25 17:45
咱是50后，叫声大爷还差不多。

请问能不能复制到选定单元格  相对位置的单元格

maditate

ais9009 发表于 2019-7-25 18:02
请问能不能复制到选定单元格  相对位置的单元格

就选定复制而言是可以完成的，以楼主的标㓳要求恐怕不太现实。

740688321

maditate 发表于 2019-7-25 17:45
咱是50后，叫声大爷还差不多。

我公司一同事，70多岁了，别人叫他老前辈，他听了很不高兴。他说，我有那么老吗？您还主动称大爷。呵呵。

maditate

740688321 发表于 2019-7-25 18:07
我公司一同事，70多岁了，别人叫他老前辈，他听了很不高兴。他说，我有那么老吗？您还主动称大爷。呵呵。

你公司的老前辈指望活到一百岁。我比较现实能活90已是走狗屎运了。

740688321

maditate 发表于 2019-7-25 18:10
你公司的老前辈指望活到一百岁。我比较现实能活90已是走狗屎运了。

不要那么悲观嘛，祝您长命百岁！

ais9009

Public Sub 不连续粘贴()
Application.ScreenUpdating = False
s = Selection.Count
ReDim arr(s - 1)
For Each Rng In Selection
arr(i) = Rng.Address
i = i + 1
Next
Range("xfd1").PasteSpecial (xlPasteAll)
For i = 0 To s - 1
Range("xfd1").Offset(i, 0).Cut
Range(arr(i)).Select
ActiveSheet.Paste
Next i
Application.ScreenUpdating = True
End Sub
Public Sub 不连续粘贴值()
Set MyData = New DataObject
Application.ScreenUpdating = False
MyData.GetFromClipboard
arr = Split(MyData.GetText(1), Chr(13) + Chr(10))
i = 0
For Each Rng In Selection
Rng.Value = arr(i)
i = i + 1
Next
Set MyData = Nothing
Application.ScreenUpdating = True
End Sub

我在Workbook_Open()里定义了两个快捷键CTRL+SHIFT+V和CTRL+SHIFT+N如下

Private Sub Workbook_Open()
Application.OnKey "^+{v}", "不连续粘贴"
Application.OnKey "^+{n}", "不连续粘贴值"
End Sub这个能改吗

ais9009

maditate 发表于 2019-7-25 18:05
就选定复制而言是可以完成的，以楼主的标㓳要求恐怕不太现实。

那只能把公式  赋值  写到代码里实现了  感觉好复杂

maditate

ais9009 发表于 2019-7-25 20:00
那只能把公式  赋值  写到代码里实现了  感觉好复杂

分块预先记录地址然后依次复制粘贴是可以的。象傻瓜相机那样一次成像不太可能。

ais9009

maditate 发表于 2019-7-25 20:02
分块预先记录地址然后依次复制粘贴是可以的。象傻瓜相机那样一次成像不太可能。

分块后执行一次宏就可以吗？ 主要是粘贴区域会有所变动

killq

不知道什么意思，下来看了下也没看明白。明显两个表格的列标签就不完全一致，搞毛的“相对位置不动的粘贴”？

并不是没有办法，只是大家都忘了这个了：
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=True, Transpose:=False