Tag: 复制粘贴
最后8个在Excel中使用了行。 电源shell
我已经看了全部，我似乎无法find这个答案。 而不是从A1到G8中select，我只是希望它select最后的8个USED行。 不知道在这里使用什么。 $pathtsv = "C:\xxxxxx.mdf" $pathxlsx = "C:\xxxxxxxxxxxxxx.xlsx" $Excel = New-Object -ComObject "Excel.Application" $Excel.Visible=$true $Workbook = $Excel.Workbooks.Open($pathxlsx) $TempWorkbook = $Excel.Workbooks.Opentext($pathtsv) $temp = $excel.Workbooks.Item(2) $temp = $temp.Worksheets.Item(1) $CopyRange = $temp.Range("A1:G8") $CopyRange.Copy() 提前致谢。
在Excel VBA中复制graphics时清除剪贴板
我使用VBA将多个Excelgraphics从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 ' … 有时，复制图表失败。 除了内存问题之外，我没有任何解释。 我得到的错误消息： 对象“Chart对象”的方法“复制”失败。 然后Excel得不到响应，我必须重新启动它。 我能做些什么来防止这种情况？ 也许我可以清除复制和粘贴操作之间的剪贴板？ 更新：我已经尝试了两种提到的方式来清除剪贴板。 复制和粘贴操作时常失败。 运行时错误是“-2147417848（80010108）”。 网上有关于这个错误的一些信息，所以我会从那里开始。 更新（最后）：我想我解决了这个问题，把这些代码放在图表复制和粘贴的部分前面。 错误没有再出现。 DoEvents 'lets the operating system clear / execute any backed up / queued events that it might have to […]
VB Excel的PasteSpecial需要剪贴板内容？
我有一个问题与VB PasteSpecial。 此代码在Excel中完美工作（假设您已经select了包含数据的单元格） Selection.Copy Range("A1").Select Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=True Application.CutCopyMode = False 但是，我正在使用第三方软件（QlikView）来提取数据，然后将其复制到Excel文档中。 正常粘贴没有问题，但必须进行换位。 显然，因为我没有任何内容在工作簿中复制，所以我不使用 Selection.Copy 但是因为我不首先复制文档中的任何内容（即使在复制内存中有表格数据），这个调用返回的是一个糟糕的参数exception（如果我先复制那个VERY工作簿中的单元格然后调用macros转置它）。 运行时错误“1004”返回。 Range类的PasteSpecial方法失败。 是的，我可以将它粘贴到文档中，然后将其从该区域剪下，将其移到正确的位置并进行转置，但这是错误的编码。 有没有人经历过这个，并有办法让这个工作？
在excel vba的第一个空列中复制粘贴范围
我想复制工作表3的单元格区域（C1：Z1000），并将其粘贴到工作表1的第一个空列（在行1中）。 下面的代码块在最后一行：source.Range（“C1：Z1000”）。复制destination.Cells（1，emptyColumn） Sub CopyRange() Dim source As Worksheet Dim destination As Worksheet Dim emptyColumn As Long Set source = Sheets("Sheet3") Set destination = Sheets("Sheet1") 'find empty Column (actually cell in Row 1)' emptyColumn = destination.Cells(1, destination.Columns.Count).End(xlUp).Column If emptyColumn > 1 Then emptyColumn = emptyColumn + 1 End If source.Range("C1:Z1000").Copy destination.Cells(1, emptyColumn) End Sub
将值插入到filter后的表列中的单元格中
不知道为什么我的代码不工作。 我通过空白值“（空白）”筛选表格中的列。 然后将值“NA”插入到第一个单元格中，并通过向下拖动填充句柄到列中的最后一个单元格来复制该值。 然后再一次不过滤桌子，这样一切都显示出来了。 但是，当我运行的macros只是复制列标题名称，并将其粘贴到第一个单元格中，而没有其他的东西。 Sub InsertNAtoBlanks() ' ' InsertNAtoBlanks Macro ' ' ActiveSheet.ListObjects("Table6").Range.AutoFilter Field:=11, Criteria1:= _ "=" Range("K4").Select ActiveCell.FormulaR1C1 = "NA" Range("K4").Select Selection.FillDown ActiveSheet.ListObjects("Table6").Range.AutoFilter Field:=11 End Sub
VBA | 如何在Excel中将值从单元格复制到单元格
我想复制一个单元格值到另一个单元格，但我想保留在一个variables的值，所以我可以按需要使用它。 以下是我试过的代码 – Private Sub CommandButton1_Click() NumRows = Range("A1", Range("A1").End(xlDown)).Rows.Count For x = 1 To NumRows a= Cells(x, 1).Value.Copy Cells(x, 2).Value= a.PasteSpecial Next End Sub
将活动工作表复制到另一个工作簿中：范围类的复制方法失败
我想我的代码复制整个工作表（SOURCE）并将其粘贴到其他工作簿（WHERE_I_WANNA_PASTE_IT）下的其他工作表（TARGET）并保存。 我得到这个错误： 运行=时间错误“1004”：范围类的复制方法失败 在这一行上： CurrentSheet.Cells.Copy Destination:=oSheet.cells 代码： Public Const path1 As String = "C:\Where_I_WANNA_PASTE_IT.xlsb" Dim oExcel As Object Dim oBook As Object Dim oSheet As Object Dim CurrentSheet As Object Sub copyNpaste Set CurrentSheet = ActiveSheet Set oExcel = CreateObject("Excel.Application") Set oBook = oExcel.Workbooks.Open(path1) Set oSheet = oBook.Worksheets("TARGET") 'Deleting what's on "TARGET" first oSheet.cells.delete 'This […]
在excel中复制乱码的列文本
我有一些数据以逗号分隔的列格式 name1,age1,school1,subjects1,location1,dob1,doj1 name2,age2,school2,subjects2,location2,dob2,doj2 name3,age3,school3,subjects3,location3,dob3,doj3 有些像这样被空格隔开 name4,age4,school4,subjects4, location4,dob4, doj4 name5,age5,school5, subjects5,location5,dob5,doj5 我怎样才能复制粘贴他们在excel表单独的列正确。 我已经尝试使用的文本 ，通过复制它，然后用空格replace逗号，然后select块select模式，并单独复制每列，然后粘贴它。 但过程太繁琐，需要时间。
如何启用从Excel复制粘贴到自定义DataGridView？
我试图在自己的环境中解决这个老问题，改编了许多不同的解决scheme，但仍然没有成功。 我有一个User Control ，名为EntryGrid ，有一个DataGridView ，它的头，这样的事情在代码中设置。 然后有一个EntryGrid删除的表单。 我知道excel列必须准备好能够将所有单元格粘贴到一行中，为此，我使用了以下解决scheme： copypaste ，除了Copy部分。 这就是我在这里的样子： Private Sub EntryGrid_KeyDown(sender As Object, e As KeyEventArgs) Handles EntryGrid4.KeyDown, EntryGrid8.KeyDown, EntryGrid16.KeyDown, EntryGrid32.KeyDown e.Handled = True Dim entryGrid As EntryGrid = sender Dim dataGrid As DataGridView = entryGrid.DataGrid If (e.Control And e.KeyCode = Keys.V) Then MessageBox.Show("Success") 'for now End If End Sub 这绝对不适合我。 我甚至将KeyPreview设置为True […]
R – Autofit Excel列宽
如何使用openxlsx自动设置列宽？ 其中一个列有一个datevariables（例如21-08-2017 ），如果使用ctrl+c从Excel中复制，并正常粘贴到其他地方，它显示为####### （如果列宽增加显示在Excel中的内容，它正常粘贴）。 我想将重复任务整合到我的代码中。 这是我现在使用的： WB <- loadWorkbook(File) addWorksheet(WB, Sheet) writeDataTable(WB, Sheet, DF, withFilter=F, bandedRows=F, firstColumn=T) saveWorkbook(WB, File, overwrite =TRUE) 我已经在这里附加了相关的代码，我也正在做基于表值的条件格式。 请在这里build议一种整合autofit列宽的方法。 编辑：默认情况下，来自R的XLSX输出具有默认的8.43列宽，我想要将其设置为根据单元格内容自动调整，或者手动设置每列。 到国防部：这是一个问题，我正试图解决R，使用openxlsx。 无论如何，感谢您的关注。
