Tag: copy paste
将每个工作表从一个Excel文件复制到另一个
有了这个，可能很容易解决的问题，但没有任何编程技巧，我很难破解… … – 我用一个button，一个macros分配给它做了一个excel文件。 它应该做什么： 打开另一个xls文件，用户可以在硬盘上进行search 从打开的文件复制每张纸 将其粘贴到原始文件并closures从中复制的文件。 到目前为止，我得到这个： Sub Importfile() Dim sFile As String Dim wb As Workbook sFile = Application.GetOpenFilename("*.xls,*.xls") If sFile <> "False" Then Set wb = Workbooks.Open(sFile) 'Copy and paste code , where I dont know what to do wb.Close End If End Sub
如何将数据从Excel粘贴到cxGrid中
我有一个使用DevExpress cxGrid（连接到数据库）的Delphi应用程序。 我需要能够将数据从Excel复制粘贴到网格中。 这可能吗？ 如果是这样，如何做到这一点，我需要哪些额外的组件？
如何通过我的数据扫描我的代码并复制某些选定的数据行并将其粘贴到其他表单中？
所以基本上我有wksht1中的一堆数据，我想扫描以select所有遵守某个if then语句（见下面的代码）的行，然后将它们复制到pastesht。 我有我的代码到目前为止，但它给了我一个错误，在第20行，我不知道我需要修复。 请提前帮忙，谢谢！ 1 Sub Try() 2 Dim wksht1 As Worksheet, pastesht As Worksheet 3 Dim LastRowinpastesht As Long 4 5 With ThisWorkbook 6 Set wksht1 = Sheets("AAA") 7 Set pastesht = Sheets("PPP") 8 LastRowinpastesht = pastesht.Cells(Rows.Count, 1).End(xlUp).Row + 1 9 End With 10 11 With wksht1 12 Last1 = Cells(Rows.Count, "B").End(xlUp).Row 13 For […]
select整个最后一行
我试图让我的代码find工作表中的最后一行，并复制整个行，并粘贴下面。 目前我有： Cells(Application.Rows.Count, 1).End(xlUp).Select Selection.Copy Cells(Application.Rows.Count, 1).End(xlUp).Offset(1, 0).Select Selection.Insert Shift:=xlDown Application.CutCopyMode = False find行中的最后一个单元格非常棒，但是当它复制/粘贴时，它只抓取第一个单元格。 所以，我想知道的是，如果您可以使用此代码来查找最后一行，然后select整个行，然后复制/粘贴下面。 请记住，我不能只input Rows("3:3").Select Selection.Copy Rows("4:4").Select Selection.Insert Shift:=xlDown 因为该行将是可变的。 谢谢！ Dim lastRow As Long lastRow = Cells(Application.Rows.Count, 1).End(xlUp).Row Rows(lastRow).Select Selection.Copy Rows(lastRow).Offset(1, 0).Select Selection.Insert Shift:=xlDown Application.CutCopyMode = False 上面的代码将find最后一行，select它，将其复制并粘贴到下面。 但是，在某些情况下，我需要复制最后一行并将其粘贴到它下面的几行，所以： Rows("3:3").Select Selection.Copy Rows("4:16").Select Selection.Insert Shift:=xlDown 事情到这一点，但是我不能粘贴选定的行在几行，因为 Rows(lastRow:4).Select 吓坏了。 有没有办法将“16”添加到最后一行，以便复制该行并将其粘贴到接下来的14行等中？
Excel：如何将“值”粘贴到第一个空白单元格？
考虑到我已经通过另一个线程解释了“如何粘贴到第一个空白单元格”… 在这里我需要知道如何粘贴“价值”。 例： Dim sh As Worksheet, tCell As Range Sheets("Lunch Extend").Range("B4:F31").Copy Set sh = Sheets("Backup") Set tCell = FreeCell(sh.Range("B3")) sh.Paste PasteSpecial xlValues tCell 但是，最后一行不能正确读取。 任何帮助？ sh.Paste tCell …工作，但我需要价值观。 谢谢。 在这里添加FreeCellfunction… Function FreeCell(r As Range) As Range ' returns first free cell below r Dim lc As Range ' last used cell on sheet Set […]
