在工作表中selectUsedRange列和行

• 我在我的Excel文件， DTMGIS和DTMEdit有两张纸
• DTMEdit表是空的
• 我正在尝试从DTMGIS和仅粘贴值到DTMEdit

我不知道如何selectUsedRange并粘贴到DMTEdfit

 Dim ws As Worksheet Dim LastRow As Long, LastCoulmn As Long, Header As Long Header = 2 Set ws = ThisWorkbook.Sheets("DTMGIS") LastRow = ws.UsedRange.Rows.Count LastCoulmn = ws.UsedRange.Column.Count With ws.UsedRange .Select .Copy End With 

Answer 1

尝试这样的事情：

 Sub CopyPasteValues() Dim ws1 As Worksheet, ws2 As Worksheet Set ws1 = ThisWorkbook.Sheets("DTMGIS") Set ws2 = ThisWorkbook.Sheets("DTMEdit") ws1.Range(ws1.UsedRange.Address).Copy ws2.Range("a1").PasteSpecial xlPasteValues End Sub 

Answer 2

下面的变化

• 避免了UsedRange从A1开始的假设
• 在不移动格式的情况下运行副本（如果您确实使用了.Copy使用Application.CutCopyMode = False ）

码

 Sub FastCopy() Dim ws1 As Worksheet Dim ws2 As Worksheet Set ws1 = ThisWorkbook.Sheets("DTMGIS") Set ws2 = ThisWorkbook.Sheets("DTMEdit") ws2.Range(ws1.UsedRange.Address).Value = ws1.UsedRange.Value End Sub