VBA: range类的粘贴方法失败
VBA是Visual Basic for Applications的缩写，是一种用于Microsoft Office应用程序的宏语言。在VBA中，range类是用于表示工作表上的单元格范围的对象。粘贴方法是用于将剪贴板中的内容粘贴到指定的单元格范围内。
当粘贴方法失败时，可能有以下几个原因和解决方法：
- 数据格式不匹配：如果剪贴板中的数据格式与目标单元格范围不匹配，粘贴方法可能会失败。可以尝试使用PasteSpecial方法，并指定所需的粘贴选项，如数值、格式、公式等。
示例代码：
Range("A1").PasteSpecial Paste:=xlPasteValues- 目标单元格范围错误：确保目标单元格范围正确无误。可以使用MsgBox函数输出目标单元格范围的地址，以便进行调试。
示例代码：
MsgBox Range("A1").Address- 剪贴板内容为空：在粘贴之前，确保剪贴板中有要粘贴的内容。可以使用Clipboard对象的GetText方法检查剪贴板中的文本内容。
示例代码：
Dim clipboardText As String
clipboardText = Clipboard.GetText
If clipboardText = "" Then
MsgBox "剪贴板为空"
End If- 权限问题：如果在VBA代码中尝试粘贴到受保护的工作表或工作簿中，可能会导致粘贴方法失败。请确保有足够的权限进行粘贴操作。
以上是一些常见的粘贴方法失败的原因和解决方法。根据具体情况，可以结合使用VBA的其他方法和属性进行调试和处理。关于VBA的更多信息和示例代码，可以参考腾讯云的VBA开发文档：VBA开发文档。
相关·内容
2回答
我正在尝试将剪贴板内容粘贴到单元格"A1“中
Range("A1").PasteSpecial xlPasteValues
但是我得到了“Range类失败的PasteSpecial方法”错误！
感谢你的帮助！
浏览 1提问于2020-03-22得票数 0
回答已采纳
这是一个非常简单的VBA公式，但它失败了。它只是继续粘贴到单元格A6中。就我一个人吗？顺便说一句，Excel 2011。
Range("A4:A5").Select
Selection.Copy
Range("A6:A1000").Select
ActiveSheet.Paste
浏览 0提问于2011-09-22得票数 5
回答已采纳
1回答
我一直试图使用VBA宏将Excel文档中的文本复制到Word文档中--但是它总是在看似随机的点上失败，并显示出两条不同的错误消息之一。似乎没有押韵或理由，它将失败的地方，或它会给我什么错误信息。
首先，这是我正在使用的Excel电子表格示例：
这就是运行宏时Word文档的样子：
有时，如果出现以下错误消息，它将失败--但当您尝试调试它时，它实际上并没有显示发生故障的行：
在其他时间-它将失败与以下错误消息。当它在此消息中失败时-您可以对它进行调试，并显示它在四行.Paste中的一条上失败：
最后，这里是我的VBA宏：
Sub CopyFromExcelToWor
浏览 1提问于2021-03-12得票数 1
回答已采纳
5回答
我使用VBA将几个Excel图从Excel复制到Powerpoint：
'copy from excel worksheet
Workbooks(Stats & ".xls").Worksheets(Stats).ChartObjects("graph4").Copy
'paste into powerpoint presentation
.Slides(3).Shapes.Paste
' more code and more copy and pastes
' ...
有时，复制图形失败。除了记忆问题之
浏览 4提问于2011-10-17得票数 1
回答已采纳
3回答
是否可以将“字符添加为VBA中的文本?我假设此字符用于在VBA中指定文本，因此当我尝试添加以下代码时，收到错误：
Sheets("SalesDataSheet").Range("C5") = "=TEXT(B5,"mmm yyy")"
或者，有没有VB代码可以执行我试图粘贴到单元格中的函数？
提前谢谢。
浏览 0提问于2015-03-06得票数 0
我刚刚开始熟悉VBA和我的代码
For k = 3 To ThisWorkbook.Sheets.Count
ThisWorkbook.Sheets(k).Activate
ActiveSheet.Cells(11, 2).Select
lLastRow = Cells(Rows.Count, 1).End(xlUp).Row
ActiveSheet.Range("A5:" & "A" & CStr(lLastRow)).Copy
' ThisWorkbook.Sheets(1).Cells("B" & CStr
浏览 4提问于2014-03-05得票数 1
回答已采纳
我正在努力做到以下几点：
Sheet1:用户单击运行VBA的按钮。
Sheet2: VBA选择D列上的第一个非空白单元格
范围(“D”& Rows.Count).End(xlUp).Offset(1).Select
Sheet1: VBA复制一系列值
工作表(Sheet1).Range(“E2:AJ11 11”).Copy
Sheet2: VBA将复制的范围粘贴到先前选定的活动单元中。
--我试着粘贴到活动单元格中的这个部分不起作用：
Worksheets("Results").ActiveCell.PasteSpecial xlPasteVal
浏览 3提问于2017-10-27得票数 0
回答已采纳
我有以下简单的VBA例程将CTRL+Shift+V绑定，以便在Excel中按值复制和粘贴
Sub PasteValue()
Selection.PasteSpecial _
Paste:=xlPasteValues _
, operation:=xlNone _
, SkipBlanks:=False _
, Transpose:=False
End Sub
当我试图粘贴来自剪切的值，而不是复制时，我收到以下错误，
错误1004，类范围的PasteSpecial方法失败“
我如何修改上述程序，以工作时，切割以及复
浏览 3提问于2014-12-10得票数 2
我在为一个唠叨的问题而挣扎。我试图简单地使用VBA在XLS工作表中复制和粘贴一个单元格论坛集。工作表(wks1)是从AccessDB创建和填充的，否则工作正常。
错误：“Range类的PasteSpecial方法失败”
wks1.Range("P5:S5").Copy
wks1.Range("P5:S10").PasteSpecial _
Paste:=xlPasteFormulas, _
Operation:=xlNone, _
SkipBlanks:=False, _
Transpose:=False
浏览 2提问于2016-02-18得票数 1
回答已采纳
我想要做的是从另一个来源复制一个表，Navision，并将它粘贴到excel中，给出它的格式等等。“复制”过程并不重要，知道如何使其自动化是很好的，但这不是我的首要任务。
复制什么：：
-有7列和来自Navision的可变行的表
存在的问题：
-粘贴没有定义行的表✓(谢谢Ionestorm)
- VBA无法识别剪贴板中的信息。
我认为主要的问题是：
- --我想它是在“外部剪贴板”中复制的，而vba不认识它。
您应该知道我是VBA的新手，我只有C++和basic MySQL的背景，这是我第一次对在日常任务中应用这些知识感兴趣，使他们更容易。我一直在做实验。
我在VBA中找到的有关复制粘贴的信息
浏览 3提问于2016-06-27得票数 0
回答已采纳
我正在广泛使用32位2013年Excel与VBA。我已经禁用了硬件图形加速和COM外接程序，但是我仍然在努力解决以下问题：
我正在将另一个具有单元格格式但没有公式(~3mb Excel文件)的大型工作簿的内容导入到有问题的Excel工作簿中。在第一次尝试中，当尚未导入内容时，导入成功。我正在通过类似于以下代码的VBA导入内容：
Application.Workbooks(F_Home).Activate
Workbooks(F_Home).Sheets(Sheet1).Visible = xlSheetVisible
...
Application.Workbooks(F_Source
浏览 2提问于2017-04-26得票数 1
回答已采纳
Im想要创建一些VBA代码，从几个工作表中复制值并将其粘贴到一个主文件中。
我有以下步骤：
转到工作表并选择一个范围
单张(“V01 DEN HAAG").Select范围(”H7“).Select范围(选择，Selection.End(xlToRight)).Select Selection.Copy
转到主文件/选择最低的行，将其偏移一个并粘贴值
.Select范围(“B3”).Select范围(选择，Selection.End(xlDown)).Select Selection.End(xlDown).Select ActiveCell.Offset(1，0).Selec
浏览 0提问于2015-08-14得票数 0
回答已采纳
有没有使用VBA将集合直接写入工作表的方法？就像这样
Worksheets("Sheet3").Range("C2") = MyCollection
找不到任何有用的东西
浏览 1提问于2016-06-04得票数 1
如果我用10个值填充vba中的一个对象，并将其粘贴到已定义为200行长的范围中，这10个值是否会在预定义的范围内反复复制？
注意:填充和粘贴是通过vba代码完成的，范围在excel中定义。
这似乎发生在excel vba 2007中，但不是在2010年。需要修复2007年的问题。非常感谢您的意见..
在广告中谢谢！
浏览 2提问于2012-10-20得票数 0
回答已采纳
问题综述
我正试图为我所估价的股票创建一个数据库，但遇到了一个障碍。我试图创建一个健壮的数据输入表，使处理更容易，我是通过使用VBA来实现的。我试图使用“stock”数据类型函数将股票代码机复制到数据库中，使用以下行：
.Cells(iRow, 3).Value = frm.Range("F5").Value
然而，当它被复制到数据库时，它会吐出#值！错误。
我已经尝试过的
我试图指定RangeValueDataType，但这似乎不是我想要的。我还尝试将范围语法更改为.Value2和.ConvertToLinkedDataType，梯子将数据库中的最终输出从#VALUE更改为！
浏览 4提问于2021-10-14得票数 0
回答已采纳
使用FOR循环，尝试在每次使用VBA从excel粘贴到word之后插入分页。但是，所有的分页符都会出现在粘贴值之前。另外，我希望以中间的值为中心。有人能帮忙处理密码吗？下面是我在VBA上的代码：
Sub movedatatoMSword()
Dim wApp As Word.Application
Dim wDoc As Word.Document
Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets("Sheet3")
Set wApp = CreateObject("word.application
浏览 1提问于2018-06-19得票数 0
3回答
我有一本有50多张工作表的工作簿。我想将每个工作表的名称复制到该特定工作簿的单元格中。我可以使用以下VBA代码的宏一次对一个工作表执行此操作：
Range("B1") = ActiveSheet.Name
但是，当我尝试一次将宏应用于多个工作表时，它失败了。我只想知道前30张工作表的名字。
浏览 12提问于2015-12-15得票数 2
回答已采纳
1回答
Excel中有多个包含数据列的工作表。我要做的是复制并粘贴数据工作表中的所有D列到另一个新工作表中，将所有E列从数据工作表复制到另一个工作表，等等。我可以创建7个新的Excel工作表来收集数据，数据工作表从工作表8开始。下面是我的代码片段：
For t = 8 To tabs
Sheets(t).Range("D1:D2544").Copy Worksheets("OCM_VMonM24").Range(Cells(1, t - 6), Cells(2544, t - 6))
Sheets(t).Range("E1:E2544"
浏览 2提问于2015-12-01得票数 0
回答已采纳
1回答
我有一段VBA代码来改变特定范围内的行颜色。但它只在excel文件打开时运行一次。
当前，当我需要更新交替颜色时，我使用一个按钮来运行VBA。VBA有没有办法实时检测到行的变化？
提前感谢您的帮助
吉姆
浏览 1提问于2015-05-20得票数 0
2回答
我正在尝试使用VBA在Excel中制作大量的基因数据，使其更易读。我试着在第15列之后，每隔7个单元格剪切并粘贴数据，并将它们放在第8-15列下面。我需要的示例包含在图片中。 (原始vs.我需要它看起来像什么)正如你从代码中看到的，真实的数据要大一点。( 680行，100多列。)
当我尝试运行代码时，当它将数据范围粘贴到新行时，它失败了。(错误1004)
我的代码是：
Sub ShiftRows()
Dim codingCol, startCol As Integer
Dim LastRow As Integer
Dim CurrentRow As Integer
浏览 1提问于2016-10-07得票数 0
我在不同的模块中使用了完全相同的技术，并且工作得很有魅力。我已经用下面的代码启动了新的宏，一旦尝试Select所有过滤后的单元格来复制到模板文件，它就会不幸地失败。它都使用Tables所以ListObjects。我在这里做错什么了？
Sub ImportMasterData()
Dim MasterData As Workbook
Dim Template As Workbook
Dim DateFrom As Date
Dim DateTo As Date
DateFrom = #2/4/2021#
DateTo = #6/
浏览 5提问于2021-04-06得票数 1
回答已采纳
1回答
我使用基本的vba代码插入Range(C3:E3").Insert xlShiftDown行。我发现，与这些单元格相关的、列不同的公式也会随着插入range.row (而不是entire.row)而折叠。我想知道vba代码(我指的是在不同模式下使用insert )是否有任何解决办法，或者这是excel游戏的一部分，我们需要解决问题而不插入行。感谢您的任何指导或意见，为什么它会在excel中如此领先呢？
浏览 2提问于2022-11-02得票数 0
大家好，我是vba的新手，我正在尝试捕捉我的工作表上的所有ctrl+v事件，并将剪贴板上的任何内容粘贴到当前选定的单元格中。大多数情况下，我想要复制的是来自firefox或记事本的文本。但是，只有当我试图粘贴到itself本身(在单元格编辑模式下)时，代码才能正常工作。
Private Sub CopyPaste()
'PasteSpecial Values Only
ActiveCell.PasteSpecial Paste:=xlPasteValues, skipblanks:=True
这返回一个运行时错误1004 range类的特殊方法失败，我也尝试过这样做，但它
浏览 5提问于2018-11-09得票数 2
回答已采纳
我对VBA编码非常陌生，没有以前的编码经验。我主要采用我找到的代码，并对其进行修改以满足我的需求。 我目前正在使用这个VBA来确定需要从“主列表”中复制哪些行，并将它们复制到指定的工作表中： Sub MovePerson()
With Application
.ScreenUpdating = True
.EnableEvents = False
End With
Sheet1.Activate
Dim RNG As Range
Set RNG = Range([C1], Range("C" & Rows.Count).End(xlUp))
On Error
浏览 8提问于2020-10-20得票数 0
回答已采纳
请帮我解决这个问题：
我在这个中使用这个vba
Sub test()
Dim rng1 As Range, rng2 As Range, rngName As Range, i As Integer, j As Integer
For i = 1 To Sheets("Sheet2").Range("B" & Rows.Count).End(xlUp).Row
Set rng1 = Sheets("Sheet2").Range("B" & i)
For j = 1 To S
浏览 3提问于2017-06-25得票数 1
回答已采纳
我对VBA非常陌生，我只是通过在这个站点上复制解决方案中的代码而度过的，但是对于这个问题，我找不到类似的问题。
当A和B列对齐为"apple“和"cat”时，我只想复制某些单元格(而不是整行)。我还想删除我复制的行。
到目前为止我的代码是：
Sub animals()
Dim rcnt As Long
rcnt = Worksheets("sheet1").Range("A" & Rows.Count).End(xlUp).Row
For i = 1 To rcnt
If Range("B" & i).
浏览 0提问于2017-08-18得票数 0
回答已采纳
1回答
VBA新手在用偏移量将一张纸复制到另一张表时遇到困难。
复制整个工作表是可行的，但我无法获得带有偏移量的副本，以便以同样的方式工作。
我遗漏了什么？
source.Copy ThisWorkbook.Sheets(Sheets.Count) 'works
source.Range("A12").Copy Destination:=ThisWorkbook.Sheets(Sheets.Count) 'fails
浏览 1提问于2015-11-19得票数 1
回答已采纳
1回答
我目前正在尝试使用VBA将一些单元从一个位置复制到另一个位置，而且由于我对VBA陌生，我想知道是否有人可以帮助我使代码更高效一些，我知道一定有一种方法可以复制到一个单元格，而不必选择该单元格，然后复制到它。
For i = 1 To dataSheet.Range("A" & dataSheet.Rows.Count).End(xlUp).Row
dataSheet.Range("A" & i & ":" & "CT" & i).Copy
Set rCell = dataSh
浏览 4提问于2015-07-13得票数 0
回答已采纳
1回答
我有一个代码，它正在做一些计算在8列和几百行。代码目前可以工作，但需要一段时间才能运行。我想要加速我的代码。我听说过使用variant数组来加速宏。目前，我已经成功地使用数组读取数据并将其存储在数组中，然后将其输出到单独的工作表。在下面的代码中没有声明的变量是公共的。
Sub BBHCashRecon()
With Application
.ScreenUpdating = False
.DisplayStatusBar = False
.Calculation = xlCa
浏览 5提问于2014-12-15得票数 0
2回答
VBA-回车
、、、
新来的，在一般的VBA里。我已经创建了一个宏，它复制excel中单元格的内容，并粘贴到word文档中的特定位置。FYI，我在word中使用书签来选择粘贴的确切位置。问题是，所有复制的内容都会插入一行和/或段落/回车。我已经找到了很多可能的解决方案，但是没有一个有效，因为我在VBA方面缺乏经验。请帮帮我！
Sub OpenWord()
Dim WordApp As Object
Dim WordDoc As Object
Dim R1 As Object
Dim R2 As Object
Set WordApp = CreateObject("
浏览 4提问于2018-02-22得票数 1
回答已采纳
1回答
我正在工作的C# VSTO(excel)。我已经创建了excel工作簿项目。我一直在尝试为我的工作簿实现特殊粘贴。
手动完成粘贴特殊的(如 )
但是我需要C#代码来做同样的事情。
有任何方法可以将它应用于我的excel工作簿中的每个复制/剪切粘贴操作吗？
我不想使用VBA宏，因为它每次询问用户是否希望启用宏，因此是否有其他方法来完成这一任务。
浏览 7提问于2011-09-21得票数 2
回答已采纳
我在一个VBA类中有这段代码，它计算出类的一个属性(一个日期)和今天的日期之间的天数。
Dim EmailDate As Date
EmailDate = Me.Email.DateReceived
Debug.Print EmailDate, Date
Debug.Print NetworkDays(EmailDate), Date, Range("BankHolidays"))
当我运行它时，我得到了以下输出
23/04/2010 19/05/2010
[GetMacroRegId] 'NETWORKDAYS' <
[GetMacroRegI
浏览 1提问于2010-05-19得票数 0
2回答
我以前在VBA中使用此行将数据粘贴到工作表的第一个空行上 Sheets("Sheet1").Range("B" & Rows.Count).End(xlUp).Offset(1).PasteSpecial Paste:=xlValues 是否可以修改它，使其将数据粘贴到以B59开头的第一个空行上？
浏览 29提问于2020-11-22得票数 1
回答已采纳
我有一份邮件列表，上面全是大学招股说明书的名字和地址，取自excel文档中的一个.tab文件。但地址包含在单个单元格中，每行由回车符分隔。
我真的需要一个宏，我可以运行，它将分开不同的部分到不同的细胞。我基本上知道VBA的结构，但对VBA的功能一无所知。
它需要扫描直到出现回车符，将前面的数据减去回车符放入一个新的单元格中，然后继续扫描，直到单元格中没有字符，因为末尾没有回车符。
这个是可能的吗？
浏览 2提问于2011-07-08得票数 2
回答已采纳
如何使用VBA将数据从一个文件复制到另一个文件？当我运行这段代码时，我得到一个错误-“运行时错误'1004‘：应用程序定义或对象定义的错误”。我正在使用Excel 2010
Sub nextfile()
Range("B5").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy
Windows("MAIN Pivot Table.xlsx
浏览 1提问于2014-01-09得票数 0
1回答
我有一本工作簿，里面有油井的石油生产信息。每口井都有自己的工作表，我想把每口井的累积油气产量复制并粘贴到工作簿末尾的预制表中，这样我就可以得到累积石油产量的清单。
普通复制和粘贴vba不适合我，因为我试图粘贴的是一个计算值。每当我执行当前代码时，我都会得到#REF错误。
我知道这不是一个独特的问题，在此之前有人曾问过这个问题。不过，我已经看过以前对这个问题的回答，并试图删除代码，但都失败了。我知道我需要使用粘贴特殊的功能，但我似乎也想不出如何让它工作。
我正在复制范围AB3:AE3。我试图复制和粘贴到的工作表名是SmtProd。我希望将值复制到从第2行开始的SmtProd工作表中(第1行有标题
浏览 4提问于2015-01-15得票数 0
回答已采纳
下面的VBA代码工作得很好，但是放在E列中的结果需要保留原始源数据格式，如字体和大小、单元格居中等。如何修改下面的VBA代码来实现这一点？
将给定范围的多行转置为单个空列E的VBA代码：
Sub RangeToColumn()
Dim varray As Variant
Dim i As Long, j As Long, k As Long
Application.ScreenUpdating = False
k = 1
varray = Range("A1:D4").Value
For i = 1 To UBound(varray,
浏览 4提问于2020-11-23得票数 0
我是VBA的新手，我发现了我认为是我问题的答案，但并不起作用。如果在我的Sheet1列F中包含值"A - 6:30PM"，那么我希望将整行复制到另一个表中。
这是我之前使用的代码。哪里出了问题？
Sub Test()
For Each Cell In Sheets(1).Range("F:F")
If Cell.Value = "A - 6:30PM" Then
matchRow = Cell.Row
Rows(matchRow & ":" & matchRow).Sel
浏览 0提问于2015-07-08得票数 0
我试图用VBA将范围从一个工作表复制到另一个工作表，但在试图粘贴时失败了。我尝试过几种方法，但没有成功。我已经创建了一个用于粘贴的示例代码段，它在最后一行上失败。我收到的错误是“运行时错误'1004'：应用程序定义的或对象定义的错误。”有人能解释一下为什么会失败吗?我能做些什么呢？
Sub Test()
Dim report_ws As Worksheet
report_row = 2
report_executive_column = 6
report_column_last = 10
archived_report_row = 3
archived_executive_co
浏览 2提问于2017-07-03得票数 1
回答已采纳
1回答
作为循环过程的一部分，我正在尝试将单元格e2和f2的内容的单元格值粘贴回这些相同的单元格中，该循环过程逐行重复此任务(下一行将对e3和f3重复相同的过程，然后是e4和f4，依此类推，直到到达B列中的空单元格。 以下是我无法理解的代码子集(它返回错误1004，Range类的PasteSpecial方法失败： tickersSheet.Range("E2").Offset(counter, 0).Copy
tickersSheet.Range("E2").Offset(counter, 0).PasteSpecial Paste:=
浏览 20提问于2021-01-19得票数 1
回答已采纳
我正在尝试创建一个工作表，在其中我可以键入一个文本值，并且它会自动填充来自另一个字符串列表的最接近的匹配。
我尝试在VBA中使用VLOOKUP函数，将第4个参数设置为TRUE以查找部分匹配。我也尝试过只在excel中使用VLOOKUP函数，而不是在VBA中。结果是我想要的一半，假设我在单元格中输入" Cookie“，函数返回”清洁用品“，因为它们都以C开头。理想情况下，我希望它返回巧克力饼干或类似的东西。
Private Sub Worksheet_Change(ByVal Target As Range)
Dim KeyCells As Range
Set KeyC
浏览 2提问于2019-08-15得票数 0
回答已采纳
我有一个VBA宏，我用它来修正工作表中的日期，所以它结合了日期和时间。日期是B格式，不是我想要的格式，是dd/mm/yyyy，时间是D，是对的，hh:mm
这样做的目的是将日期和时间结合起来，最终得到正确的结果填充列B，覆盖现在的内容。我的代码可以完成日期和时间的组合，然后选择单元格并将结果复制到最后一行数据，然后复制所有该列并将值粘贴到B列中。
这是我有的东西
Sub Combine_date_and_time()
Dim ws As Worksheet
Set ws = Worksheets("predictology")
ws.Range(&#
浏览 4提问于2020-07-28得票数 0
回答已采纳
3回答
我的单元格包含一个简单的级联函数，与D24作为前一年(例如15)和自定义格式(、MMM、JJ、)。
CONCATENATE("Apr ",$D$24)
当我用VBA复制和粘贴这些单元格时，"Apr 15“就变成了"15.04.16”，并且由于格式化"Apr 16“
Selection.Value = Selection.Value
是因为这个原因吗？除了将格式更改为文本之外，还有其他解决方案吗？
浏览 6提问于2016-07-01得票数 1
VBA的新手，所以请容忍我。如果另一个工作表中的单元格(B2)发生更改，我将尝试删除一个表。
目前我有：
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Worksheets("sheet2").Range("B2")) Is Nothing Then
Range("B21:D30").ClearContents
End If
End Sub
我尝试过许多变体，间接的和不同的语法，但都没有效果。
更新:我还应该提到，B2 on
浏览 0提问于2019-03-15得票数 1
回答已采纳
问题：
因为.xlsb (这里称为TheirFile.xlsb)每周从第三方下载两次，所以VBA脚本必须由.xlsm (MyFile.xlsm)保存。这个过程很简单: Focus TheirFile.xlsb对数据(第3行的标题)应用一些过滤器，选择单元格AW2并复制值(它包含一个公式，这可能是问题发生的地方)焦点MyFile.xlsm选择单元格J28并粘贴...pastespecial xlPasteAll
但是，在检查代码和点击运行时，我在单元格中什么也得不到。
尝试：
它们中的大多数几乎是完全相同的，而且以我(试图)修复错误的方式，我真的不记得所有这些。
我用变体
Workbooks(&
浏览 0提问于2020-07-18得票数 0
当两个单元格的值相同时，我希望在受保护的Excel 2010工作表中使用弹出消息和音效进行确认。我已经在数据验证中尝试过这个公式：
IF(D4=D5,beepnow(),"")
但是它不能运行。有没有人可以代替公式或VBA代码替换？谢谢!
浏览 31提问于2017-01-14得票数 1
2回答
我编写了一些VBA来将一些数据从一个工作簿复制并粘贴到另一个工作簿中：
Dim x As Workbook
Dim y As Workbook
' Open both workbooks
Set y = ActiveWorkbook
Set x = Workbooks.Open("Data.csv")
' Copy data from x
x.Sheets("SourceData").Range("A1", _
x.Sheets("SourceData").Range("A1").End
浏览 0提问于2018-02-28得票数 1
我的公式有问题。检查下面的代码。
With Worksheets("L.NAM.O")
With .Cells.Find(What:="record ID", After:=ActiveCell, LookIn:= _
xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
xlNext, MatchCase:=False, SearchFormat:=False)
.Parent.Rang
浏览 4提问于2016-11-18得票数 0
回答已采纳
1回答
在Sheet1中，我有几个不同度量(列)的数据点的行。我手动创建了第二个工作表，它对第一列数据执行一些分析。如何创建宏或VBA代码，以便为Sheet1中的每一列创建一个新工作表，并执行与我手动创建的分析完全相同的分析？谢谢。
浏览 0提问于2011-09-01得票数 0
回答已采纳
1回答
我需要使用VBA从Excel宏调用python脚本。我收到了一条错误消息：“对象iwshshell3的方法运行失败”，无法弄清楚原因。
我试过编辑路径，重新下载Spyder等等。
Option Explicit
Sub Test()
Dim objShell As Object
Dim PythonExe, PythonScript As String
Set objShell = VBA.CreateObject("Wscript.Shell")
PythonExe = "C:\Users\Frydman\AppData\Local\Programs\
浏览 0提问于2019-09-03得票数 0
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
对象存储
即时通信 IM
腾讯会议活动推荐
腾讯云开发者
