时间戳

首页 > 解决方案 > 如果 H 列在单元格中有日期，如何将整行复制到工作表 2。？

excel - 如果 H 列在单元格中有日期，如何将整行复制到工作表 2。？

问题描述

我正在尝试搜索（如果H工作表中的列mechanical Equip.有任何日期，则将整行复制到off rent下一个可用行。它正在处理第一行mechanical equip.是否有日期。

Sub CopyRowWithDates()
   Dim lrowcompleted As String
   Dim Rrange As Range

   Set Rrange = Sheets("MECHANICAL EQUIP.").Range("H2:H6000")

   On Error Resume Next
   Application.EnableEvents = False


        If Rrange = "mm/dd/yyy" Then

            lrowcompleted = Sheets("OFF RENT").Cells(Rows.Count, "A").End(xlUp).ROW

            Range("A" & Rrange.ROW & ":N" & Rrange.ROW).Copy Sheets("OFF RENT").Range("A" & lrowcompleted + 1)
            Else
        End If

    Application.EnableEvents = True


End Sub

标签： excelvbadate

解决方案

如果您使用For each myDate in range("H2:H6000")而不是设置范围？

Sub CopyRowWithDates()
   Application.EnableEvents = False
   Application.ScreenUpdating = False

   Dim lrowcompleted As String
   Dim myDate as String

  For each myDate in range("H2:H6000")

   On Error Resume Next
   Application.EnableEvents = False

        If myDate = "mm/dd/yyy" Then

            lrowcompleted = Sheets("OFF RENT").Cells(Rows.Count, "A").End(xlUp).ROW

            Range("A" & myDate.ROW & ":N" & myDate.ROW).Copy Sheets("OFF RENT").Range("A" & lrowcompleted + 1)
            Else
        End If

    Application.EnableEvents = True
    Application.Screenupdating = True
End Sub

我更喜欢使用Range("A1048576").End(xlUp).Row而不是Cells(Rows.Count,"A").End(xlUp).ROW

推荐阅读