Excel VBA在粘贴后更改格式
我有一个VBA代码，将数据从一张表复制到另一张。 我想改变粘贴后的格式，但它得到一个对象所需的错误。 这是我的代码：
recordSht.Cells(1, lCol + 1).PasteSpecial.NumberFormat = "mm/dd/yyyy" 我怎样才能解决这个问题？
这是其余的代码：
Sub Daily() Dim dailySht As Worksheet 'worksheet storing latest store activity Dim recordSht As Worksheet 'worksheet to store the highest period of each day Dim lColDaily As Integer ' Last column of data in the store activity sheet Dim lCol As Integer ' Last column of data in the record sheet Dim maxCustomerRng As Range ' Cell containing the highest number of customers Dim CheckForDups As Range ' Used to find duplicate dates on the record Sheet Dim maxCustomerCnt As Double ' value of highest customer count Set dailySht = ThisWorkbook.Sheets("Sheet A") Set recordSht = ThisWorkbook.Sheets("Sheet B") With recordSht lCol = .Cells(1, .Columns.Count).End(xlToLeft).column End With With dailySht lColDaily = .Cells(1, .Columns.Count).End(xlToLeft).column maxCustomerCnt = Round(Application.Max(.Range(.Cells(14, 1), .Cells(14, lColDaily))), 2) Set maxCustomerRng = .Range(.Cells(14, 1), .Cells(14, lColDaily)).Find(What:=maxCustomerCnt, LookIn:=xlValues) If Not maxCustomerRng Is Nothing Then ' Check the Record Sheet to ensure the data is not already there Set CheckForDups = recordSht.Range(recordSht.Cells(14, 1), recordSht.Cells(14, lCol)).Find(What:=Round(maxCustomerRng.Value, 2), LookIn:=xlValues) ' If CheckForDups is Nothing then the date was not found on the record sheet. Therefore, copy the column If CheckForDups Is Nothing Then Range(.Cells(14, maxCustomerRng.column), .Cells(17, maxCustomerRng.column)).Copy recordSht.Cells(14, lCol + 1).PasteSpecial xlPasteValues recordSht.Cells(14, lCol + 1).PasteSpecial xlPasteFormats .Cells(3, maxCustomerRng.column).Copy recordSht.Cells(3, lCol + 1).PasteSpecial xlPasteValues recordSht.Cells(3, lCol + 1).PasteSpecial xlPasteFormats .Cells(9, maxCustomerRng.column).Copy recordSht.Cells(9, lCol + 1).PasteSpecial xlPasteValues recordSht.Cells(9, lCol + 1).PasteSpecial xlPasteFormats .Cells(1, maxCustomerRng.column).Copy recordSht.Cells(1, lCol + 1).PasteSpecial xlPasteValues recordSht.Cells(1, lCol + 1).PasteSpecial.NumberFormat = "mm/dd/yyyy" End If End If End With Set maxCustomerRng = Nothing Set dailySht = Nothing Set recordSht = Nothing End Sub Sub Daily3G() Dim dailySht As Worksheet 'worksheet storing latest store activity Dim recordSht As Worksheet 'worksheet to store the highest period of each day Dim lColDaily As Integer ' Last column of data in the store activity sheet Dim lCol As Integer ' Last column of data in the record sheet Dim maxCustomerRng As Range ' Cell containing the highest number of customers Dim CheckForDups As Range ' Used to find duplicate dates on the record Sheet Dim maxCustomerCnt As Double ' value of highest customer count Set dailySht = ThisWorkbook.Sheets("3G") Set recordSht = ThisWorkbook.Sheets("Daily 3G Busy Hour") With recordSht lCol = .Cells(1, .Columns.Count).End(xlToLeft).column End With With dailySht lColDaily = .Cells(1, .Columns.Count).End(xlToLeft).column maxCustomerCnt = Round(Application.Max(.Range(.Cells(14, 1), .Cells(14, lColDaily))), 2) Set maxCustomerRng = .Range(.Cells(14, 1), .Cells(14, lColDaily)).Find(What:=maxCustomerCnt, LookIn:=xlValues) If Not maxCustomerRng Is Nothing Then ' Check the Record Sheet to ensure the data is not already there Set CheckForDups = recordSht.Range(recordSht.Cells(14, 1), recordSht.Cells(14, lCol)).Find(What:=Round(maxCustomerRng.Value, 2), LookIn:=xlValues) ' If CheckForDups is Nothing then the date was not found on the record sheet. Therefore, copy the column If CheckForDups Is Nothing Then Range(.Cells(14, maxCustomerRng.column), .Cells(17, maxCustomerRng.column)).Copy recordSht.Cells(14, lCol + 1).PasteSpecial xlPasteValues recordSht.Cells(14, lCol + 1).PasteSpecial xlPasteFormats .Cells(3, maxCustomerRng.column).Copy recordSht.Cells(3, lCol + 1).PasteSpecial xlPasteValues recordSht.Cells(3, lCol + 1).PasteSpecial xlPasteFormats .Cells(9, maxCustomerRng.column).Copy recordSht.Cells(9, lCol + 1).PasteSpecial xlPasteValues recordSht.Cells(9, lCol + 1).PasteSpecial xlPasteFormats .Cells(1, maxCustomerRng.column).Copy recordSht.Cells(1, lCol + 1).PasteSpecial xlPasteValues recordSht.Cells(1, lCol + 1).PasteSpecial.NumberFormat = "mm/dd/yyyy" End If End If End With Set maxCustomerRng = Nothing Set dailySht = Nothing Set recordSht = Nothing End Sub
NumberFormat不是你粘贴的东西，我不这么认为。 编辑也许只是把“时间”组件。 所以，而不是：
.Cells(1, maxCustomerRng.column).Copy recordSht.Cells(1, lCol + 1).PasteSpecial xlPasteValues recordSht.Cells(1, lCol + 1).PasteSpecial.NumberFormat = "mm/dd/yyyy"
尝试这个：
recordSht.Cells(1, lCol + 1) = DateValue(.Cells(1, maxCustomerRng.column))
如果格式不是您想要的，则可以应用：
recordSht.Cells(1, lCol + 1).NumberFormat = "mm/dd/yyyy"