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

alexpig70

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



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

rouber590324

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

rouber590324

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,,,)

­ã´£³¡ªL

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

n7822123

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