Tag: 复制粘贴

VBA复制和粘贴从多列转置数据: 我有多个时间表工作簿设置具有员工名称和多个不同小时types（如基准时间，假日薪酬，病假工资）列。看图片。我需要代码才能将每个员工的小时types（标题）和值复制到4列。例如。员工1基准时间37.50 员工1病假15.00 员工1组长20.00 员工2基准时间50.00 员工2假期支付60.00 我有一些代码将数据复制到一个模板，但坚持如上复制它。 Sub Consolidate() Application.EnableCancelKey = xlDisabled Dim folderPath As String Dim Filename As String Dim wb As Workbook Dim FName As String Dim FPath As String Dim NewBook As Workbook folderPath = "C:\Users\preena.j\Documents\Payroll\TimeSheet – MYOB" 'contains folder path If Right(folderPath, 1) <> "\" Then folderPath = […]

从一个Excel工作簿复制和粘贴值到另一个: 我试图logging一个macros将一个工作簿的值粘贴到另一个工作簿，但是当我这样做时，我得到一个“运行时错误9下标超出范围” 我相信这只是一个简单的解决方法，我是新的macros，所以任何帮助，将不胜感激。这是我的代码： `Sub Refresh() ' ' Refresh Macro ' Update XY Act. Values 2017 ' ' Keyboard Shortcut: Ctrl+r ' Windows("XY Update File v2.xlsx").Activate Selection.Copy Windows("Engineering XY Chart v2.xlsx").Activate ActiveSheet.Paste End Sub

VBA：原理图复制例程: 我今天不得不用VBA来解决Excel的问题，但我觉得自己是个小菜鸟。我的要求很简单，但不知何故，我在线上。我想添加到每个现有的行，在一个额外的工作表上的一些变种。看看这里的计划这怎么可能？任何人都可以帮我吗？感谢您的反馈和您的帮助。问候eXocode 解决scheme是： Sub CopyData（） RowInSheet3 = 1 For RowInSheet1 = 1 To Sheets(1).Range("A1").SpecialCells(xlCellTypeLastCell).Row Sheets(3).Cells(RowInSheet3, 1) = Sheets(1).Cells(RowInSheet1, 1) RowInSheet3 = RowInSheet3 + 1 For RowInSheet2 = 1 To Sheets(2).Range("A1").SpecialCells(xlCellTypeLastCell).Row Sheets(3).Cells(RowInSheet3, 1) = Sheets(2).Cells(RowInSheet2, 1) Sheets(3).Cells(RowInSheet3, 2) = Sheets(2).Cells(RowInSheet2, 2) RowInSheet3 = RowInSheet3 + 1 Next Next 结束Sub`

Powershell – 将最后一行TSV复制并粘贴到Excel中的特定单元格: 好的，第三次希望能把我带到那里。我一直在研究这个脚本一段时间，只需要一点帮助，让我在终点线。我正在尝试编写一个脚本，用于获取TAB分隔文件的最后X行（本例中为8行）的PowerShell脚本，并将其粘贴到我创build的Excel模板中的特定单元格中。我已经尝试了批量和VBS无济于事。到目前为止，这是我提出的代码： $pathtsv = “C:\test.txt” | Select -Last 8 $pathxlsx = “C:\NBP ESP-152 REV F TEMPLATE.xlsx” $Excel = New-Object -ComObject excel.application $Excel.visible = $true $Workbook = $excel.Workbooks.open($pathtsv) $Workbook2 = $excel.Workbooks.open($pathxlsx) $Worksheet = $Workbook.WorkSheets.item(“Overview”) $Worksheet.activate() $range = $WorkSheet.Range(“A3:J10”).CurrentRegion $range.Copy() | out-null $Worksheet2 = $Workbook2.Worksheets.item(“RAW DATA”) $worksheet2.activate() $range2 = $Worksheet2.Range(“A3:A3”) $Worksheet2.Paste($range2) $Excel.Quit() [gc]::collect() [gc]::WaitForPendingFinalizers() […]

使用C＃可以将剪贴板上的对象粘贴到excel中作为数据和公式？: 在WPF应用程序中，我需要生成可以放在剪贴板上并粘贴到excel中的数据。我需要粘贴一些可以携带数据和公式的东西。我正在尝试OpenXML …但我不知道这是行之有效的。我目前正在尝试制作原始的“Spreadsheet ML”（这与OpenXML不同）？无论如何，如果任何人都可以提供给我一些指针…或者更好，C＃实际上把这种数据放在剪贴板上，我将不胜感激！我在这里发布了另一个更具体的问题：如何将OpenXML放到剪贴板上，以便粘贴到Excel中？

从封闭的工作簿excel VBA复制: 好吧，我到了代码正在从封闭的工作簿中读取数据的地步，并且可以将它粘贴到工作簿中的sheet2中。这是我的新代码： Sub Copy456() Dim iCol As Long Dim iSht As Long Dim i As Long 'Fpath = "C:\testy" ' change to your directory 'Fname = Dir(Fpath & "*.xlsx") Workbooks.Open ("run1.xlsx") For i = 1 To Worksheets.Count Worksheets(i).Activate ' Loop through columns For iSht = 1 To 6 ' no of sheets For iCol = […]

VBA：粘贴不同名称的图表: 我使用VBA来复制和粘贴图表。 ActiveSheet.ChartObjects("Chart1").Activate ActiveChart.ChartArea.Copy ActiveSheet.PasteSpecial Format:="Microsoft Office Drawing Object", Link:= _ False, DisplayAsIcon:=False 问题是，我最终有两个图表具有相同的名称（ "Chart1" ），当我尝试重命名后： 'ActiveSheet.Shapes("Chart1").Name = CHART_NAME 他们都被重命名。如何粘贴不同名称的图表。

从SQL SERVER 2012复制查询输出数据并粘贴到Excel: 我有一个数据types为varchar（max）的列。该列中的一些行具有长文本数据。当我从该列复制SQL结果集并粘贴到Excel中时，该行被分割成多行。我想以一种方式将SQL Server中的单元数据转移到excel中的单元格。我不知道如何解决这个问题。任何build议，将不胜感激。谢谢

在Excel中复制大量的数据: 我有一个大约90个格式相同的工作簿的电子表格。我需要从一个完整的工作表中复制和粘贴位于一行中的336个独立公式到所有其他工作表。不幸的是，这最终导致大约30k个单元需要立即复制和粘贴。有没有一种解决办法，而不是分手，手动？任何帮助是apperciated。谢谢。

Excel VBA，如何从Column对象内复制单元格: 我正在尝试使用“For Each Column”循环将粘贴内容从一个表格复制到另一个表格。我蹒跚地正确引用列对象中的单元格。或者至less这是我认为的问题。为什么行表（“组合”）…给这个错误：对象不支持这个属性或方法 Sub CRangeCopy() Set ws = Sheets("Sheet1") ColNr = 1 For Each c In ws.UsedRange.Columns lastCellNr = c.Cells.Count c.Cells(2, lastCellNr).Copy Sheets("Sheet2").Cells(2, ColNr).Paste ' Object doesn't support ' this property or method ColNr = ColNr + 1 Next c End Sub 编辑：我已经做了build议的更改，现在使用Range，下面的代码有时在debugging模式下工作，但不是当我作为整体运行时？任何想法为什么？ Sub CopyToNewSheet() Sheets.Add.Name = "Combo" Set ws […]