Tag: 复制粘贴

将单元格区域复制到不同的工作簿: 我有下面的代码复制一系列不同的单元格到另一个工作簿中的下一个可用的行。问题是它粘贴的公式不是价值。 Sub SaveInlife() Dim wb As Workbook, NR As Long Set wb = Workbooks.Open("C:\Users\caseys\Downloads\Operations Score Card.xlsx") NR = Sheets("IN LIFE").Range("A" & Rows.Count).End(xlUp).Row + 1 With ThisWorkbook.Sheets("REPORT") .Range("AB85").Copy Destination:=wb.Sheets("IN LIFE").Range("A" & NR) End With wb.Close savechanges:=True End Sub

VBA将Excel图表复制到Word中作为图片更改图表大小: 我想创build一个macros从Excel复制图表，并将其粘贴到Word中作为图片（最好是增强型图元文件）。我build立了一个Word模板文档，其中包含应插入图片的特定单元格中的书签。然而，用我现在的代码，插入的图像太大了，把整个桌子都拧了。我尝试了不同的图片选项（增强型图元文件，PNG等），但它们都有相同的结果。当我尝试在表中使用PasteSpecial手动复制图表时，它保持原来的大小，这正是我想要的。我有什么需要改变我的代码来获得？ Sub CopyCharts2Word() Dim wd As Object Dim ObjDoc As Object Dim FilePath As String Dim FileName As String FilePath = "C:\Users\Name\Desktop" FileName = "Template.docx" 'check if template document is open in Word, otherwise open it On Error Resume Next Set wd = GetObject (, "Word.Application") If wd Is Nothing […]

将Python输出（0.25，0.78，0.33，…）粘贴到Excel单元格中: 我的代码输出如标题状态，（0.25，0.78，0.33，…）等等。我有一个Excel表格，我需要将结果移动到连续的单元格中，从左到右。这是一个非常乏味的过程。当我尝试简单地复制粘贴Python输出并粘贴到Excel中时，所有东西都被捆绑到一个单元格中，并用逗号等我想直接将它们粘贴到单独的单元格中。有没有办法做到这一点？谢谢。

复制并粘贴数据匹配: 我有与原始数据的FileA。蓝色的单元格是标题为AJ的标题。桃色的细胞代表数据，这通常是文字变化，并不是恒定的，标记为1-10。文件A：文件B：如上所述，第二张纸包含蓝色的标题。我一直无法写一个vba代码来匹配指定的头到一列，然后将下面的数据粘贴到下一个可用的单元格中。即在A2，A3，A4，A5，A6，A7中将A1（A1，A5，A8，A11，A14，A17与其各自的标题匹配并粘贴到第二张纸上）您会注意到，在原始数据中，它并不是完全不变的，第4-5,10-12,13-14行缺less列F的数据，这使得难以匹配大数据集。目前的代码接近帮助，但不工作是张贴如下： Dim wbk As Workbook Set wbk = ThisWorkbook Set ws = wbk.Sheets(1) Set ws2 = wbk.Sheets(2) Dim cell As Range Dim refcell As Range Application.ScreenUpdating = False ws.Select For Each cell In ws.Range("A1:Z1") cell.Activate ActiveCell.Offset(1, 0).Copy For Each refcell In ws2.Range("A1:Z1") If refcell.Value = cell.Value […]

Excel VBA PasteSpecial不粘贴一致: 我有一个用于导入与工作计划有关的数据的报告，然后根据这些数据创build图表和统计数据。计算和图表基于表格，表格由VBA填充 – 用户select文件，然后VBA检查它是否符合预期的文件格式，并将所有内容放在正确的位置。但是，代码的pastespecial部分不能正确粘贴所有内容。特别是有一些列的date值，当粘贴其中的一些（不是一列或特定的行，但看似随机的单元格）没有被格式化为粘贴date，因此当我在特定的时间范围内寻找工作时，不被捕获公式。在源文件中，所有的数据都是100％保存为一个date值（如果我把一个filter的数据，它是按年份分组，并可以扩大到月/日/时间+如果我使用testing单元格来添加1到显示下一个date的单元格）。一旦粘贴到目标表，然后一些仍然是一个date值，但一些似乎是文本和显示为dd / mm / yyyy hh：mm但从计算中错过。在这些单元格上，如果我走到他们按F2然后回车然后单元格更改为一个date值（重新排列到右侧，然后包含在date范围公式中）。这里是代码： Public Sub importdata() Dim wb1, wb3 As Workbook Dim ws1, ws3 As Worksheet Dim lrow As Long Dim WOtable As ListObject Dim searchcell As Range Set wb1 = ThisWorkbook Set ws1 = wb1.Sheets("Dashboard") Set WOtable = ws1.ListObjects("workorder") WOfile = […]

使用INDEX或OFFSET（相对引用）的Excel复制/粘贴公式: 通常情况下，当你复制和粘贴公式到不同的单元格时，列和行引用是相对默认的，除非你添加'$'符号，这使得它们是绝对的。但是对于INDEX和OFFSET，当我复制和粘贴时，列和行引用似乎只是绝对的。有没有办法让他们相对？ A有一个命名范围，我想find该范围内的每一行的总和。我在用着： =SUM(INDEX(Q1UnitTotals,1,0)) 这工作正常，但是当我复制和粘贴，它不会更改行号。

使用VBA在Active Cell中进行特殊粘贴: 我想从Worksheet 2复制一个表（范围A1到AV3）到工作表1中的活动单元格我现在的代码是： Private Sub CommandButton1_Click() Worksheets("Sheet2").Range("A1:AV3").Copy Worksheets("Sheet1).ActiveCell.PasteSpecial Paste:=xlPasteFormats Worksheets("Sheet1").ActiveCell.PasteSpecial Paste:=xlPasteValues End Sub 谁能帮我解决这个问题？我想每次点击button，它都会复制到任何活动的单元格。

复制和粘贴/插入行 – 粘贴比复制数据更多的数据: 我有一个macros被设置为复制所有行中的数据从表1列A到D中的数据，并将其粘贴到工作表2中的列AD，插入它已经在工作表2中的数据上面。这个想法是创build一个持续的列表最新的数据在顶端。这工作完全正常，直到今天 – 不知道发生了什么变化，我没有任何改变macros观。它的运行方式应该是这样的，但是它会将所复制的数据永久地粘贴到Excel中的所有列上。所以说，我在A，B，C和D列中有X行数据。macros正确地把这个数据粘贴到它应该从表1到表2。但是，它也将这些数据粘贴到每一列（列XFD）。因此，每4列与A / B / C / D具有相同的数据，直到excel用完列。为什么这样做？我如何阻止这种情况发生？ macros： Sub CopyData() Dim i As Integer i = Sheets("Sheet1").Range("E1").Value 'E1 counts # of rows w/ data Sheets("Sheet1").Range("A2:D" & i).Copy Sheets("Sheet2").Activate Rows("2:2").Select Selection.Insert Shift:=xlDown Application.CutCopyMode = False Sheets("Sheet2").Range("A1").Activate End Sub 感谢您的帮助！

excel vba从列中复制值并将值粘贴到单元格中: 我有像下面的数据。第一列属于A列，第二列属于B列。 1 q 1 q 2 q 2 q 2 q 3 q 我想在列A中的值发生更改时插入空行。插入行我正在使用这个站点的macros。 'select column a before running the macro Sub InsertRowsAtValueChange() 'Update 20140716 Dim Rng As Range Dim WorkRng As Range On Error Resume Next xTitleId = "KutoolsforExcel" Set WorkRng = Application.Selection Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8) Application.ScreenUpdating = […]

复制和特殊粘贴，值与VBA: 我到目前为止的代码似乎正在工作。唯一的问题是，我似乎在复制数组公式的值而不是数组公式。有没有办法让我现有的代码粘贴特殊（只是值）还是我需要一个新的方法完全？ Dim s1 As Excel.Worksheet Dim destsh As Excel.Worksheet Dim iLastCelldestsh As Excel.Range Dim iLastRowS1 As Long Set s1 = Sheets("RAW – Greenphire") Set destsh = Sheets("RAW – Concatenated") 'get last row of Q in RAW – Greenphire iLastRowS1 = s1.Cells(s1.Rows.Count, "Q").End(xlUp).Row 'get last AVAILABLE cell to paste into Set iLastCelldestsh = destsh.Cells(destsh.Rows.Count, […]