Tag: 复制粘贴
有条件地将行移动到另一个工作表中
我希望有人能帮助我。 我有一张名为“细节”的另一张电子表格，另一张名为“已对帐”的电子表格。 我在Details中有1000多行，我想剪切E列（我想剪切整行）中所有具有0或者 – 的行，并将其粘贴到Sheet Details中。 如果可能的话，我想复制并粘贴标题从Reconciled到详细信息。 我试过使用这个代码（稍微修改）在另一篇文章中使用 Sub Test() For Each Cell In Sheets("Details").Range("E:E") If Cell.Value = "0" Then matchRow = Cell.Row Rows(matchRow & ":" & matchRow).Select Selection.Copy Sheets("Reconcile").Select ActiveSheet.Rows(matchRow).Select ActiveSheet.Paste Sheets("Details").Select End If Next End Sub 但是有两个问题。 因为有些值（数字是真的）会被移动，但0.00的值不会被移动，因为它们是四舍五入的（我认为这就是为什么它们没有被移动）。 此外，屏幕更新奇怪，我很抱歉，我不能解释更多。 任何帮助，将不胜感激
将范围保存为一个图片文件/ pdf在一个页面上
我正在尝试将范围保存为图片文件。 下面的代码（从另一个post挖掘）的作品，但我不想创build一个图表页面，然后我需要删除。 有什么build议么？ Sub savedeal() Dim sSheetName As String Dim oRangeToCopy As Range Dim oCht As Chart Dim myFileName As String, myPath As String myFileName = Format(Now(), "dd-mmm-yy") & "-" & "DEAL.PNG" myPath = "D:\Hughs Files\Google Drive\Work Folder\Polaris\Blog\" Worksheets("BOOK").Range("B15:M45").CopyPicture xlScreen, xlBitmap Set oCht = Charts.Add With oCht .Export Filename:=myPath & "\" & myFileName, Filtername:="PNG" End […]
从其他工作簿复制/粘贴
我写了代码来复制和粘贴到我的工作簿从其他工作簿使用的范围。 在我的电脑中，它可以工作，但是当我发送给任何人时，粘贴过程导致错误信息： “此图片目前无法显示。” 目前的版本，我用xlPasteAll： Workbooks(fl.Name).Worksheets(sheetindex).Range("A2:P" & Lastrow).Copy Workbooks(fl.Name).Close Worksheets(sheetindex).Activate ActiveSheet.Range(Cells(startrow,1),Cells(rangeCount,16)).PasteSpecial xlPasteAll
如何防止Excel在粘贴时将行数据合并到单个单元格中？
我有两个电子表格，我正在复制行之间。 我有一个单独的工作簿中的macros保持打开状态，同时打开和closures包含电子表格的源和目标工作簿。 我将select目标行 rows(activecell.row).copy 然后，我将closures源工作簿，因为它的名称与目标工作簿完全相同，请在另一个文件夹中打开目标工作簿并执行 activesheet.pastespecial ' this line copied from record macro generated code 有时它可以正常工作，其他时候，源行将被挤压到行的第一个单元格中，有时我会收到一条错误消息，指出对象不支持pastespecial。 我不能告诉我是不是搞乱了副本没有指定我的意思是复制整个行，或者如果我需要以某种方式指定源数据是从另一个工作簿和粘贴function应该将数据视为行的价值的数据，而不是单个单元的价值。 如上所述，我复制了从我使用“录制macros”function生成的macrosExcel中的pastespecial行，并手动执行行复制。 万一重要，这是整个例程。 Sub copyStudentsToEmail(emailApacket) ' copies student records to email Dim cel, nameCel, sourcePath As String Rows(ActiveCell.Row).Copy sourcePath = ActiveWorkbook.FullName ActiveWorkbook.Close (True) Workbooks.Open ThisWorkbook.path & "\\email\\records.xls" ' search for bottom row Range("a1").Select While ActiveCell.Value <> "" ActiveCell.Offset(1, 0).Select […]
将数据视图从Access复制/粘贴到Excel时，可能会有255个字符的截断
我已经看到一些关于导出数据的东西，但是我正在做的是复制/粘贴。 我正在查看Access窗体的数据表视图，并试图将其复制到Excel。 该表格有2个备注字段。 如果我一次只复制一个备忘录字段，则会获得该字段的所有内容。 如果我尝试复制整个数据表视图并将其粘贴到Excel中，备注字段将被截断。 有没有办法解决这个问题，除了导出数据？
从某个文件夹中的文件复制工作表
我正在试图从我的计算机中的某个文件夹中的文件复制工作表。 我想有一个主要的工作簿（Workbook1），我按下一个button，从每个xls或xlsm文件从某个文件夹（C：\位置）的第一张表。 我现在拥有的是以下。 Sub read_a_folder() Dim MainWB As String strPath = "C:\Location\" MainWB = ActiveWorkbook.Name Set objFso = CreateObject("Scripting.FileSystemObject") Set objFolder = objFso.GetFolder(strPath) For Each objFile In objFolder.Files If objFso.GetExtensionName(objFile.Path) = "xls" Or objFso.GetExtensionName(objFile.Path) = "xlsm" Then End If Next End Sub 所以即时通讯错过了复制工作表，因为它是我的主要工作簿。 我已经尝试使用ActiveSheet.QueryTables.Add但复制工作表的特殊格式使其不可读。 当我手动执行时，Ctrl + Shift + End和CTRL + C将起作用。 任何帮助是非常需要的。 谢谢。
search一个单词，然后将其旁边的单元格复制到另一个带有VBA的Excel工作簿中
我正在尝试在工作簿1的列A中search“引用ID：”，然后复制B列中它旁边的单元格，然后将该单元格粘贴到工作簿2中的单元格B67中。 有任何想法吗？ 我发现了一些类似于我所需要的编码，但是它们比我所需要的要复杂得多，而且它们复制了整行而不是相邻的单元格。
复制并粘贴到下一个空行和列分别
在这个问题上，我总是问了很多次，我给了模糊的答案，这并没有太大的帮助。 因此，我只是自己研究，并从我的研究中提出了以下代码。 哪些工作，但不完全给我所附的图像中所述的预期成果。 从而代码粘贴来自其指定单元格的数据，但是粘贴到不是所需结果的列A中，而是从列B粘贴到表DX，DY和DZ。 还有一种方法，我可以让列A更新date自己根据单元格S9中input的date，该标记与表DX，DY和DZ的数据一起。 同样，对于图纸RAW，更新第6行并在图纸GP数据的S9中inputdate Sub Prism2ndStep() ' ' Prism2ndStep Macro ' r = 1 Sheets("GP Data").Range("S12:S14").Copy If Sheets("GP Data").Range("S12") = Sheets("DX").Range("A65536").End(xlUp) _ Then r = 0 Sheets("DX").Range("A65536").End(xlUp).Offset(r, 0).PasteSpecial _ Paste:=xlPasteValues, Transpose:=True Application.CutCopyMode = False j = 1 Sheets("GP Data").Range("T12:T14").Copy If Sheets("GP Data").Range("T12") = Sheets("DX").Range("A65536").End(xlUp) _ Then j = 0 Sheets("DX").Range("A65536").End(xlUp).Offset(j, 0).PasteSpecial _ Paste:=xlPasteValues, […]
Excel以相同的顺序将数据从一张纸张插入其他纸张
我正在使用下面的代码将数据从一个表插入到其他表。 但是，这个表格似乎被颠倒过来了。 我如何从底层读取而不是顶端 码： Sub InsertData() Dim dc As Range With Sheets("Open Tickets") For Each dc In Intersect(.Range("J:J"), .UsedRange) If dc.Value2 >= 14 Then dc.Resize(1, 1).EntireRow.Copy Sheets("Dashboard").Rows(6).Insert Shift:=xlDown End If Next End With End Sub
VBA从一个工作簿复制到另一个工作簿（仅限于数值和格式）
我有以下代码复制并粘贴从一个工作表到另一个工作表： wb1.Worksheets("ws").Copy After:=wb2.Sheets(wb1.Sheets.Count) 我试图只粘贴值和格式，我将如何去做这个？ 此外，该过程需要更长的时间，可能是因为我从中复制的工作表包含具有大量数据的数据透视表。 无论如何，我可以加快速度吗？ 谢谢您的帮助！
