您的位置: 首页  >  技术问答  >  如何简化vba复制粘贴单独的单元格值

如何简化vba复制粘贴单独的单元格值

分类: 技术问答 • 2022-04-01 10:48:42

如何简化vba复制粘贴单独的单元格值

问题描述：

我知道有一种方法可以使代码简洁快捷，但似乎我太过于简单的实现它了。我有一些合并的单元格（它是一种表格，它应该是“标准”的，但用户不断地搞乱它，我使用的宏将会产生大量的错误，并且不会收集信息）。到目前为止，我设法做的另一段代码再次打开“标准”表单，并填写用户表单中的所有数据。如何简化vba复制粘贴单独的单元格值

它的作用就像一个魅力，但现在我厌倦了看和问，因为我无法弄清楚如何简化它（我知道它一定是愚蠢的，但我不能接受它不能被完成 - 我也不能接受“全功能”的VBA必须花费很长时间才能为这么小的代码编写这么多的代码）。

Application.ScreenUpdating = False 
ActiveWindow.ActivatePrevious 
Workbooks.Open Filename:="...\Standard Formular.xls" 
Sheets("Formulaire - Form").Select 
ActiveWindow.ActivateNext 
Range("E9").Copy 
ActiveWindow.ActivatePrevious 
Range("E9").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ 
    :=False, Transpose:=False 
ActiveWindow.ActivateNext 
Range("E11").Copy 
ActiveWindow.ActivatePrevious 
Range("E11").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ 
    :=False, Transpose:=False 
ActiveWindow.ActivateNext 
Range("E13").Copy 
ActiveWindow.ActivatePrevious 
Range("E13").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ 
    :=False, Transpose:=False 
ActiveWindow.ActivateNext 
Range("E15").Copy 
ActiveWindow.ActivatePrevious 
Range("E15").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ 
    :=False, Transpose:=False 
ActiveWindow.ActivateNext 
Range("E17").Copy 
ActiveWindow.ActivatePrevious 
Range("E17").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ 
    :=False, Transpose:=False 
ActiveWindow.ActivateNext 
Range("E19").Copy 
ActiveWindow.ActivatePrevious 
Range("E19").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ 
    :=False, Transpose:=False 
Range("E21").Select 
ActiveCell.FormulaR1C1 = Date 
ActiveWindow.ActivateNext 
Range("E28").Copy 
ActiveWindow.ActivatePrevious 
Range("E28").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ 
    :=False, Transpose:=False 
ActiveWindow.ActivateNext 
Range("E30").Copy 
ActiveWindow.ActivatePrevious 
Range("E30").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ 
    :=False, Transpose:=False 
ActiveWindow.ActivateNext 
Range("E32").Copy 
ActiveWindow.ActivatePrevious 
Range("E32").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ 
    :=False, Transpose:=False 
ActiveWindow.ActivateNext 
Range("E34").Copy 
ActiveWindow.ActivatePrevious 
Range("E34").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ 
    :=False, Transpose:=False 
ActiveWindow.ActivateNext 
Range("E36").Copy 
ActiveWindow.ActivatePrevious 
Range("E36").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ 
    :=False, Transpose:=False 
ActiveWindow.ActivateNext 
Range("E38").Copy 
ActiveWindow.ActivatePrevious 
Range("E38").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ 
    :=False, Transpose:=False 
ActiveWindow.ActivateNext 
Range("E48").Copy 
ActiveWindow.ActivatePrevious 
Range("E48").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ 
    :=False, Transpose:=False 
ActiveWindow.ActivateNext 
Range("E50").Copy 
ActiveWindow.ActivatePrevious 
Range("E50").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ 
    :=False, Transpose:=False 
ActiveWindow.ActivateNext 
Range("E52").Copy 
ActiveWindow.ActivatePrevious 
Range("E52").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ 
    :=False, Transpose:=False 
ActiveWindow.ActivateNext 
Range("E54").Copy 
ActiveWindow.ActivatePrevious 
Range("E54").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ 
    :=False, Transpose:=False 
ActiveWindow.ActivateNext 
Range("E63").Copy 
ActiveWindow.ActivatePrevious 
Range("E63").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ 
    :=False, Transpose:=False 
ActiveWindow.ActivateNext 
Range("G63").Copy 
ActiveWindow.ActivatePrevious 
Range("G63").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ 
    :=False, Transpose:=False 
ActiveWindow.ActivateNext 
Range("C65").Copy 
ActiveWindow.ActivatePrevious 
Range("C65").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ 
    :=False, Transpose:=False 
ActiveWindow.ActivateNext 
Range("D65").Copy 
ActiveWindow.ActivatePrevious 
Range("D65").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ 
    :=False, Transpose:=False 
ActiveWindow.ActivateNext 
Range("E65").Copy 
ActiveWindow.ActivatePrevious 
Range("E65").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ 
    :=False, Transpose:=False 
ActiveWindow.ActivateNext 
Range("F65").Copy 
ActiveWindow.ActivatePrevious 
Range("F65").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ 
    :=False, Transpose:=False 
ActiveWindow.ActivateNext 
Range("G65").Copy 
ActiveWindow.ActivatePrevious 
Range("G65").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ 
    :=False, Transpose:=False 
ActiveWindow.ActivateNext 
Range("E67").Copy 
ActiveWindow.ActivatePrevious 
Range("E67").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ 
    :=False, Transpose:=False 
ActiveWindow.ActivateNext 
Range("A72").Copy 
ActiveWindow.ActivatePrevious 
Range("A72").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ 
    :=False, Transpose:=False 
ActiveWindow.ActivateNext 
Range("G72").Copy 
ActiveWindow.ActivatePrevious 
Range("G72").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ 
    :=False, Transpose:=False 
ActiveWindow.ActivateNext 
Range("E97").Copy 
ActiveWindow.ActivatePrevious 
Range("E97").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ 
    :=False, Transpose:=False 
ActiveWindow.ActivateNext 
ActiveWindow.Close 
Application.ScreenUpdating = True

预先感谢您抽出宝贵时间帮助我！

答

商店要复制并从变量表：

wsU = Sheets("Sheet name on user form goes here") 
Workbooks.Open Filename:="...\Standard Formular.xls" 
wsF = Sheets("Formulaire - Form")

现在代替邻˚F倒装假摔这片之间被激活，而不是使用复制和粘贴，因为这涉及到剪贴板，并可以胡来，当你开始尝试，而这个宏运行试试这个在其他应用程序中复制和粘贴：

wsF.Range("E9").value = wsU.Range("E9").value

等

BTW一个不错的简写，这是

wsF.[E9] = wsU.[E9]
+0

很大，许多感谢...的话是不够的！ – 2013-03-20 10:27:54

+0

没问题，欢迎来到SO。如果这解决了问题，请将其标记为正确（答案左上方的勾号），如果您认为通过点击左上方的向上指示的三角形表示您的答案是正确的，则可以提出答案。 – Dan 2013-03-20 10:31:40

+0

这个解决方案非常简单，易于遵循 - 我只是把它放入我的宏，它只是流动！ – 2013-03-20 10:37:54

答

做一个

`sheet("Where i want to paste").range("xxx").value=sheet("Data im copiing").range("yyy").value`

例如，你的第一个副本将是：

表（ “不知道名字”）的范围（ “E9”）值=表（“Formulaire - 。表“）范围（” E9" ）值

相关推荐