lpk187

回復 1# fusayloveme

大家答案出好快，我也練習了一下

1. Public Sub se()
   
2. end1 = 2
   
3. 時間 = [d1:aa1]
   
4. For Each rn In Range("A2:A" & Cells(Rows.Count, "a").End(xlUp).Row)
   
5.     測站 = Cells(rn.Row, "B")
   
6.     測項 = Cells(rn.Row, "C")
   
7.     arr = Range(Cells(rn.Row, "D"), Cells(rn.Row, "AA"))
   
8.     Sheets("處理後資料").Range("A" & end1).Resize(UBound(arr, 2)) = rn
   
9.     Sheets("處理後資料").Range("B" & end1).Resize(UBound(arr, 2)) = 測項
   
10.     Sheets("處理後資料").Range("C" & end1).Resize(UBound(arr, 2)) = 測站
    
11.     Sheets("處理後資料").Range("D" & end1).Resize(UBound(arr, 2)) = Application.Transpose(時間)
    
12.     Sheets("處理後資料").Range("E" & end1).Resize(UBound(arr, 2)) = Application.Transpose(arr)
    
13.     end1 = UBound(arr, 2) + end1
    
14. Next
    
15. With Sheets("處理後資料").[A2].Resize(end1 - 2, 5)
    
16.     .Borders.LineStyle = xlContinuous
    
17.     .Borders.Weight = xlThin
    
18. End With
    
19. End Sub

複製代碼