ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] Ãö©ó¸ê®ÆÂà¸m½Ð±Ð

Sub TEST()
Dim xR As Range, j%, xH As Range
[S2:BO2].Resize(10000).ClearContents
[S:S].NumberFormatLocal = "yyyy/mm/dd"
[T:BO].NumberFormatLocal = "G/³q¥Î®æ¦¡"
For Each xR In Range("E2:E" & [A65536].End(xlUp).Row)
    If xR(1, 0) <> "¶q´ú¤é´Á" Then GoTo 101
    For j = 1 To 9
        If IsDate(xR(1, j)) And xR(1, j) > 0 Then
           Set xH = Range("S" & xR.Row + j - 1).Resize(1, 49)
           xH = Application.Transpose(xR(1, j).Resize(49))
        End If
    Next j
101: Next
End Sub

TOP

        ÀR«ä¦Û¦b : ºÉ¦h¤Ö¥»¥÷¡A´N±o¦h¤Ö¥»¨Æ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD