Tag: 粘贴

计算，复制和粘贴到VBA中的给定值: 我对VBA相当陌生。我正在尝试自动迭代基于没有。在单元格“E2”中指定的迭代次数。我希望excel自动填充从单元格“A4”的列A到单元格“E2”的值，例如，如果E2 = 100，Excel将自动填充系列1,2,3 …下降到100。然后，我希望excel连续计算单元格“B2”的值，然后将每个结果复制并粘贴到B列，从“B4”开始并停在迭代值“E2” 我有以下代码为“自动填充” Sub Monte3() Dim srcRange As Range Dim destRange As Range Range("A5:A1000000").ClearContents Set srcRange = ActiveSheet.Range("A4") Set destRange = ActiveSheet.Range("A4:A103") srcRange.AutoFill destRange, xlFillSeries End Sub 我logging了下面的复制粘贴macros Sub Macro10() Application.CutCopyMode = False Calculate Range("B2").Select Selection.Copy Range("B4").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = False Calculate Range("B2").Select […]

Kendo UI编辑器：从Excel中复制/粘贴格式: 有没有人知道如何保留粘贴在Kendo UI Editor中的复制内容格式？我希望它像excel中的一样，就像font-size，font-color和name一样。我碰到这个线程： “ http://www.kendoui.com/forums/kendo-ui-web/editor/copy-text-from-office-to-editor.aspx ” www.stackoverflow.com/questions/17028295/kendo-ui-editor-cut-copy-paste-with-msword 似乎有一个问题，所以我想知道是否有任何configurationkendo ui编辑器，以避免自定义事件处理。支持此function的链接： demos.telerik.com/aspnet-ajax/editor/examples/overview/defaultcs.aspx aspnetajax.componentart.com/control-specific/editor/features/blackice_allFeatures/WebForm1.aspx另外，visualstudio.com（tfs azure）谢谢！

Excel范围到PowerPoint – 粘贴问题: 我有一些问题时粘贴从Excel到PowerPoint的范围。我想保留它作为Keepsource格式： Function copyToPPT() 'Create an instance of PowerPoint. Set pptApp = CreateObject("PowerPoint.Application") ' Create a PowerPoint presentation. nomeppt = ThisWorkbook.Path + "\" + "SR-1871_R1 – ID-033 – Bi-Weekly LATAM QC Communication Meeting – data_Blank.pptx" With pptApp Let .Visible = True Let .WindowState = 3 Set Pres1 = pptApp.Presentations.Open(nomeppt) End With i = 8 While […]

复制一个OLEObject，并将其粘贴到一个文件夹（或桌面）: 我在Excel电子表格中有1到4个附加的OLEObjects（zip文件）。我可以手动右键单击>复制其中一个对象，然后转到桌面或资源pipe理器窗口，右键单击>粘贴它以在该文件夹中创build压缩文件。据我所知，我不能用VBA自动化这个过程的Paste阶段。此外，我不能同时执行多个对象的手动过程，所以我最初希望有一个解决方法（将它们全部复制到剪贴板，然后打开资源pipe理器窗口）将不起作用。我最好的解决方法是依次复制每个对象，ShellAndWait浏览器窗口，并指示用户粘贴文件，完成后closures窗口，然后继续下一个对象。 Sub blunt_extract() If MsgBox("All attachments will be downloaded to your Documents folder", vbOKCancel Or vbInformation, "") = vbCancel Then Exit Sub Dim o As OLEObject, ws As Worksheet, rM As Range, ATT As String On Error Resume Next MkDir modSpecialFolders.SpecFolder(modSpecialFolders.CSIDL_PERSONAL) & "\CIRF\" MsgBox "For each attachment, Explorer will launch in […]

如果列中的单元格有数据，则复制并粘贴到同一行中的不同单元格: 我有在BR列中的数据，我试图让我的macros工作，以便如果该单元格不是空白，然后它复制和粘贴到同一行的列AO的数据。我到目前为止，但似乎并没有工作。 Application.ScreenUpdating = False For i = 1 To Range("BR" & Rows.Count).End(xlUp).Row If Cells(i, "BR").Value >= "1" Then .Cut Destination:=Cells(i, "AO") Next i

将Excel工作表复制到Word: 我需要将工作表'GreatIdea'导出到Word文档。 “GreatIdea”分为多个页面，我的列以这些页面为基础。 A – C包含目录，D – F包含第1章，… Sub test() ' Open LOL.docx' Dim appWD As Word.Application Set appWD = New Word.Application Dim docWD As Word.Document Set docWD = appWD.Documents.Open("C:\Users\TOM\Desktop\LOL.docx") docWD.Activate Sheets("Sheet1").Select ' Copy from GreatIdea to LOL.docx' Range("A1:K40").Copy appWD.Selection.PasteSpecial appWD.ActiveDocument.SaveAs Filename:=ThisWorkbook.Path & "/" & "OEF_OFFERTE" appWD.ActiveDocument.Close appWD.Quit Set appWD = Nothing Set docWD = Nothing […]

C＃Excel VSTO – 可以移动一个数据透视表？: 我正在尝试在VSTO中移动一个数据透视表，而不是成功。我的逻辑是find数据透视表的范围，剪切并粘贴到一个新的范围，我确信工作表上没有数据存在。 public static void MovePivotTable(string sheetName, PivotTable pivotTable, int newX, int newY, int width, int height) { try { Worksheet worksheet = GetOrCreateWorksheet(sheetName); Range topLeft = (Range)worksheet.Cells[newX, newY]; Range bottomRight = (Range)worksheet.Cells[newX + width, newY + height]; Range newRange = worksheet.get_Range(topLeft, bottomRight); pivotTable.TableRange1.Cut(Missing.Value); newRange.PasteSpecial(XlPasteType.xlPasteAll, XlPasteSpecialOperation.xlPasteSpecialOperationNone, Missing.Value, Missing.Value); return; } catch (Exception) { } finally […]

范围上的PasteSpecial方法失败: 我正在尝试在另一个工作表中粘贴一系列单元格。这是我到目前为止所提出的： For i = 1 To MyCount wbk.Activate Set Criteria = Sheets(IGMSheet).Cells(i, 1) Sheets(IGMSheet).Range(Cells(i, 2), Cells(i, 4)).Copy 'this copies the 3 cells I need w.Activate If ActiveSheet.AutoFilterMode Then ActiveSheet.ShowAllData 'remove autofilter Selection.AutoFilter Range("$A$1:$BM$204").AutoFilter Field:=2, Criteria1:=Criteria.Value Range("$BC$1:$BE$204").SpecialCells(xlCellTypeVisible).PasteSpecial Next i 如果我只是更新范围内的值然后它的工作，但粘贴单元格不。友善的build议。

自定义matplotlib图像显示以添加复制/粘贴: 我想自定义matplotlib图像显示，以便我可以键入control-c，它会将图像复制到剪贴板，然后我可以将其复制到openoffice电子表格来组织我所有的原始数据和图像结果。有没有办法做到这一点？谢谢！

vba excel如何粘贴没有字体/颜色/ bg颜色格式的值: 我有一个macros来复制一系列工作表中的每一个的摘要行。汇总行特别使用font / font color / bg颜色进行格式化，但是当粘贴到“sumamry sheet”中时，只需要粘贴值而不进行格式化。 For LoopIndex = StartIndex To EndIndex ' start in a task sheet Sheets(LoopIndex).Select CopiedCells = ActiveSheet.Range("A156:L156").Copy ' now move to Summary sheet Sheets("Summary Sheet").Select ActiveSheet.Range("A8").Select ActiveCell.EntireRow.Insert ActiveCell.PasteSpecial Paste:=xlPasteValues ' tried variations of: ActiveCell.PasteSpecial paste:=xlValues, operation:=xlPasteSpecialOperationNone Application.CutCopyMode = False ' clears clipboard Next LoopIndex 我所做的所有研究都说PastSpecial，xlValues，xlPasteValues应该可以工作，但是没有任何的格式化，不知道我在这里做错了什么。它确实粘贴了值而不是引用的值，所以这很好。我有一个macros来重置循环中的格式，但我想提高效率。我正在使用Excel […]