Excel 为什么工作表副本会忽略单元格

Excel 为什么工作表副本会忽略单元格,excel,vba,Excel,Vba,我有一个宏电子表格来清理大量数据。单元格从D1开始,A-C列显示用于处理清除VBA任务的ActiveX按钮。最后一个按钮是将带有值的单元格保存到新工作簿中,并提示用户选择名称和目标。这是一幅关于数据起始位置和按钮的复制工作表的图像 下面的代码创建工作簿并提示用户,但仅复制第一行(标题)并省略具有实际值的单元格。为什么会这样 Private Sub saveSheet_Click() Dim Lastrow As Long Dim bFileSaveAs As Boolean Lastrow

我有一个宏电子表格来清理大量数据。单元格从D1开始,A-C列显示用于处理清除VBA任务的ActiveX按钮。最后一个按钮是将带有值的单元格保存到新工作簿中,并提示用户选择名称和目标。这是一幅关于数据起始位置和按钮的复制工作表的图像

下面的代码创建工作簿并提示用户,但仅复制第一行(标题)并省略具有实际值的单元格。为什么会这样

Private Sub saveSheet_Click()

Dim Lastrow As Long
Dim bFileSaveAs As Boolean

Lastrow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row

Set NewBook = Workbooks.Add
Workbooks("Cleansing Workbook.xlsm").Worksheets("Cleaning Records").Range("D1:AX" & Lastrow).Copy
NewBook.Worksheets("Sheet1").Range("A1:AU" & Lastrow).PasteSpecial (xlPasteValues)

bFileSaveAs = Application.Dialogs(xlDialogSaveAs).Show
If Not bFileSaveAs Then MsgBox "User cancelled", vbCritical

End Sub

清洁记录中的列
A
为空或仅在单元格
A1
中有值?如果是这样,对于
LastRow
,可以使用
4
而不是
1
,或者使用
“D”
使其更具可读性。@VBASIC208我已进行编辑以添加工作表的图像该图像使其非常明显,不是吗?@VBASIC208啊!谢谢,我已经解决了。我更改了您的建议,并使Lastrow=Range(“D”和Rows.Count)。End(xlUp)。row您知道
Range(“D”和Rows.Count)
单元格(Rows.Count,“D”)
单元格(Rows.Count,4)
都做相同的事情吗?如果你不知道,现在你知道了。