用VBA自定义一个选择性粘贴功能的函数

zfz1024 · 发表于 2022-1-31 07:24

我是一个VBA初学者，想用VBA制作一个函数，可以把一个单元格中的数据复制再选择性粘贴（以粘贴为数值为例）到另一个单元格的函数，且源数据丢失后粘贴为数值的数据不丢失。
哪位大神帮帮我，多谢多谢！！！

yuwd3 · 发表于 2022-1-31 07:33

既然是函数还肯定跟源数据相关，粘贴为数值就不是函数

vitrel · 发表于 2022-1-31 10:19

楼主，您好！
我理解为，您需要的功能有两种，一是选择性粘贴，二是数据暂存。
对于选择性粘贴，VBA本身就有PasteSpecial方法，自然就包含粘贴为数值的功能，按理没必要另外再创建一个自函了。
而对于数据暂存，方法有三，一是放进剪切板，但数据容易被覆盖；二是利用内置文档属性来暂存，但对字符串字数有一定的限制；三是暂存于单元格内。三种方法各有优缺点，楼主得根据自己的实际情况选择使用。

leolee82 · 发表于 2022-1-31 16:43

用ditto吧...

zfz1024 · 发表于 2022-1-31 19:08

vitrel 发表于 2022-1-31 10:19
楼主，您好！
我理解为，您需要的功能有两种，一是选择性粘贴，二是数据暂存。
对于选择性粘贴，VBA本身 ...

我知道有 pastespecial可以，但不知道代码怎么写啊！

zfz1024 · 发表于 2022-1-31 19:10

我想要的不是运行代码，而是一个自定义函数的代码，也就是这个函数的各个参数怎么设定！！！

wanghan519 · 发表于 2022-1-31 19:53

ahk就一句，用了很久了，中键粘贴值
MButton::Send {LButton}^!vuv{Enter}

vitrel · 发表于 2022-2-1 20:53

zfz1024 发表于 2022-1-31 19:10
我想要的不是运行代码，而是一个自定义函数的代码，也就是这个函数的各个参数怎么设定！！！

【选择性粘贴 PasteSpecial 方法解释】
<用法>Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

<参数>
Paste：该范围中要粘贴的部分
xlPasteAll 全部，等效于Selection.Paste，默认
xlPasteFormulas 公式
xlPasteValues 数值
xlPasteFormats 格式
xlPasteComments 批注
xlPasteValidation 有效性验证
xlPasteAllUsingSourceTheme 所有使用源主题的单元
xlPasteAllExceptBorders 边框除外
xlPasteColumnWidths 列宽
xlPasteFormulasAndNumberFormats 公式和数字格式
xlPasteValuesAndNumberFormats 值和数字格式

Operation：粘贴操作
xlPasteSpecialOperationNone 无操作，默认
xlPasteSpecialOperationAdd 加
xlPasteSpecialOperationSubtract 减
xlPasteSpecialOperationMultiply 乘
xlPasteSpecialOperationDivide 除

SkipBlanks：跳过空单元格，则为 True。默认值为 False

Transpose：转置，则为 True。默认值为 False

【最简单的用法示例】
Range("A1").PasteSpecial xlPasteValues '对A1单元格选择性粘贴：数值

zfz1024 · 发表于 2022-2-2 01:57

vitrel 发表于 2022-2-1 20:53
【选择性粘贴 PasteSpecial 方法解释】
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlN ...

谢谢您的指导，我是这个意思：比如我把这个选择性粘贴为数值的自定义函数名称定义为"copyvalue",赋予它两个参数，“参数一”是要复制的单元格，“参数二”是要粘贴到的单元格，这两个参数是可以任意输入的。这样的一个函数怎么制作出来，谢谢！！！

lss001 · 发表于 2022-2-2 22:37

zfz1024 发表于 2022-2-2 01:57
谢谢您的指导，我是这个意思：比如我把这个选择性粘贴为数值的自定义函数名称定义为"copyvalue",赋予它两 ...

Function CopyToValue(a As Range, b As Range)
  '函数说明:第一参数a要复制的单元格或区域
  '第二参数b要选择性粘贴数值的单元格或区域
  a.Copy '复制
  b.PasteSpecial xlPasteValues '选择性粘贴数值
End Function

Sub cty() '使用方法
  '示例说明:以下示例复制区域a1:a9
  '粘贴到b1起始单元格
  CopyToValue Range("A1:A9"), Range("b1")
End Sub

		自动登录	找回密码
密码			免费注册

[求助] 用VBA自定义一个选择性粘贴功能的函数

评分