Tag: 粘贴

粘贴特殊错误 – 1004 VBA Excel: 我正在尝试创build一个循环来复制源工作表中的单元格中的数据，并粘贴到目标工作表中的特定单元格中。一旦单元格被粘贴，我需要它来保存该文件的副本，然后粘贴源工作表中的下一个值。代码是： Private Sub CommandButton1_Click() Dim wbTarget As Worksheet Dim wbSource As Worksheet Dim SaveLoc As String Dim FName As String Dim i As Long Set wbSource = Sheets("Sheet3") Set wbTarget = Sheets("Sheet1") wbSource.Activate Range("A1").Activate Do While ActiveCell.Value <> "" DoEvents ActiveCell.Copy For i = 1 To 30 wbTarget.Activate With ActiveSheet wbTarget.Range("E5").Select Selection.PasteSpecial Paste:=xlPasteColumnWidths Selection.PasteSpecial […]

作为标准在Excel中粘贴特殊: 有没有一种方法，我可以做一个Excel文件，每当你从中复制的东西，那么它会自动使用粘贴特殊格式的值？即使您粘贴另一个Excel文件。

Excel粘贴特殊和添加操作: 当我们想为所有的Excel工作表单元格添加一个数字（例如5）时，可以复制包含值5的单元格，select我们想要的其他单元格的范围（例如10×10范围），右键单击 – 添加操作，然后单击确定。我想用C＃中的Excel Interop DLL将选定范围内的所有单元格添加到5。这怎么能实现？

VBA_Excel将一个datevariables作为一个数字粘贴到一个单元格中: 好的，我有这个小代码 If Trim(apriori) <> "" Then With Sheets(yolk).Range("1:1") Set Rng = .Find(apriori, .Cells(.Cells.Count), xlValues, xlWhole, xlByRows, _ xlNext, False) yolk = yolk – 1 'e = 1 If Not Rng Is Nothing Then 'Application.Goto Rng, True Rng.Offset(26, 0).Copy 'Worksheets("EXTRACTIONS").Range("B2").Offset(, e) some_date = Format(apriori, "dd/mmmm/yyyy") 'XX MsgBox some_date Worksheets("EXTRACTIONS").Range("B2").Offset(, e).Value = some_date 'XX Worksheets("EXTRACTIONS").Range("B3").Offset(, e).PasteSpecial xlPasteValues […]

将值从一个工作表粘贴到另一个如果X = True: 我正在试图创build一个macros，如果第五个工作表中的列F是= 3，则将值粘贴到3（列A到E）的左侧到另一个表（表1）中。我似乎无法开始。当我运行macros没有任何反应。我确信我犯了一堆愚蠢的错误。在此先感谢您的帮助！插口 Sub Movevalues() Dim q As Integer, w As Integer w = 7 For q = 1 To 1000 If ActiveWorkbook.Worksheets("Taxable Accounts Import").Cells(q, 6).Value = 3 Then Range(Cells(q, 1), Cells(q, 5)).Select Selection.Copy Worksheets(1).Select Range(22, w).Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Worksheets(5).Select w = w + 1 End […]

在VBA中粘贴特殊: 我正在寻找粘贴下面的一段代码的值。我尝试使用粘贴特殊的各种方法，但它不让我指定文件和我想要做什么types的粘贴。要清楚，我正在使用的代码工作，但我想修改它，所以它只粘贴值。 Workbooks.Open (path & file) ActiveSheet.Paste (Workbooks(file).Sheets(5).Range("A1").End(xlDown).Offset(1, 0)) Workbooks(file).Close SaveChanges:=True 谢谢！

需要一种方法将电子表格数据粘贴到我的vba表格单元格中？: 需要一种方法将电子表格数据粘贴到我的vba表格单元格中？我有一个csv电子表格，更新了我每天下载的新数据。我想复制这个csv文件中的所有列，并将其粘贴到我的vba表单的另一个工作簿中相应的文本框中。例如说CSV文件有4列，数据，ID，名字，姓氏我只是复制整个行的4列，并将其粘贴到我的VBAforms到正确的4文本框。我不想复制和粘贴每个人，因为我有超过4列，我需要一个更快的方式，所以只有一个粘贴将他们粘贴到正确的文本框。可以这样做吗？请帮忙。谢谢

Excelmacros：如果一个单元格的最后一个字符是“东西”，那么剪切它们并粘贴到别处: 这是以前提出的问题的扩展，这个问题得到了惊人的回答，让我想到如何才能简化我的草率代码。 Dim i As Long, l As Long l = Cells(Rows.Count, 4).End(xlUp).Row For i = l To 1 Step -1 If Right(Cells(i, 4).Value, 4) = " XX " Then 'do some stuff to cut and paste that ending to ColumnE' Cells(i, 5) = " XX " 'i'm trying to do something like this to clear […]

Excel – 特殊的粘贴选项？: 我需要一些帮助。假设我想在Excel中复制一个long … long行： 2.337662338 2.368421053 2.479452055 2.283950617 2.72 2.625 我应该怎么做才能复制这一行，并将其粘贴到这种forms： 2.337662338 2.368421053 2.479452055 2.283950617 2.72 2.625等… 非常感谢您的帮助。干杯。卢克

Excel VBA从剪贴板粘贴到另一个表中只有值: 我有一个工作簿，我需要粘贴数据。什么即时通讯试图实现：我想要粘贴数据的工作簿处于活动状态工作簿中的工作表我想粘贴数据不活跃用户激活另一个已打开的工作簿，select整个工作表并将其复制到剪贴板。用户返回到工作簿数据将被粘贴到并运行一个macros，该数据将该数据粘贴到具有预定义的图纸名称的另一个空白工作表。粘贴只能粘贴值，不能格式化，不能注释，形状，不能合并单元格。只有价值。我已经尝试了很多的组合。粘贴目的地等等。今天使用什么是： Dim wb As Workbook Dim wsPT As Worksheet Dim wsQD As Worksheet Set wb = ActiveWorkbook Set wsPT = wb.Sheets("PasteTemplate") Set wsQD = wb.Sheets("QuoteData") wsPT.Cells.Clear wsPT.Range("A1").PasteSpecial xlPasteValues