- ©«¤l
- 2833
- ¥DÃD
- 10
- ºëµØ
- 0
- ¿n¤À
- 2889
- ÂI¦W
- 0
- §@·~¨t²Î
- ¡e²¤¡f
- ³nÅ骩¥»
- ¡e²¤¡f
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¡e²¤¡f
- µù¥U®É¶¡
- 2013-5-13
- ³Ì«áµn¿ý
- 2024-11-12
|
Sub TEST()
Dim Arr, Brr, i&, N&
Arr = Intersect(Sheet1.UsedRange, Sheet1.[A:H])
ReDim Brr(1 To UBound(Arr), 1 To 5)
For i = 1 To UBound(Arr)
If Arr(i, 1) = "¦WºÙ" Then
N = N + 1
Brr(N, 1) = Arr(i + 1, 1)
Brr(N, 2) = Format(Arr(i + 4, 7), "yyyy-mm-dd")
Brr(N, 3) = Format(Arr(i + 5, 7), "hh:mm")
Brr(N, 4) = Format(Arr(i + 4, 8), "yyyy-mm-dd")
Brr(N, 5) = Format(Arr(i + 5, 8), "hh:mm")
End If
Next i
Sheet1.[M3:Q2000].ClearContents
With Sheet1.[M3].Resize(N, 5)
.NumberFormatLocal = "@"
.Value = Brr
End With
End Sub |
|