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

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

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

¦U¦ì¦n
½Ð°Ý¬O§_¯à¥Î¤½¦¡Åýªþ¥ó¤¤¶q´ú¤é´Á¸ê®ÆÂà¸m¡A¥H¥Î©ó¸ê®Æ®w¾ã²z¡C
¹Á¸Õ¥Î¹Loffset¡AÁÙ¬O¸Õ¤£¥X¨Ó¡C



·PÁ°ª¤â«üÂI¡C

¸ê®ÆÂà¸m.zip (252.89 KB)

ÀÉ®×

ALEX

SIR
¦p¤U  

Sub test()
    Dim arr
    arr = Sheet1.Range("E2:J50")
    Sheet1.Range("S2").Resize(UBound(arr, 2), UBound(arr)) = Application.WorksheetFunction.Transpose(arr)
End Sub
ù

TOP

SIR
²[¼Æ¦p¤U .µM«á©¹¥kCOPYµ{¦¡   
S2=OFFSET($E$2,COLUMN()-19,,,)
S3=OFFSET($F$2,COLUMN()-19,,,)
S4=OFFSET($G$2,COLUMN()-19,,,)
S5=OFFSET($H$2,COLUMN()-19,,,)
S6=OFFSET($I$2,COLUMN()-19,,,)
S7=OFFSET($J$2,COLUMN()-19,,,)
ù

TOP

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

¥»©«³Ì«á¥Ñ n7822123 ©ó 2018-8-29 02:07 ½s¿è
  1. Sub test1()
  2. Dim n As Long, rg1 As Range, rg2 As Range
  3. [s2].Resize(65536, 49) = ""
  4. Do While Cells(2 + 49 * n, 5) <> ""
  5.   Set rg1 = Cells(2 + 49 * n, 5).Resize(49, 6)
  6.   Set rg2 = Cells(2 + 49 * n, 19).Resize(6, 49)
  7.   rg2 = Application.Transpose(rg1): n = n + 1
  8. Loop
  9. End Sub
½Æ»s¥N½X

TOP

        ÀR«ä¦Û¦b : °µ¦n¨Æ¤£¯à¤Ö§Ú¤@¤H¡A°µÃa¨Æ¤£¯à¦h§Ú¤@¤H¡C
ªð¦^¦Cªí ¤W¤@¥DÃD