yen956

¦^´_ 1# scjiao
¸Õ¸Õ¬Ý:

1. Sub test()
   
2.     Dim sh1, sh2 As Worksheet
   
3.     Dim i, j, k As Integer
   
4.     Set sh1 = Sheets("MPS_TEST")
   
5.     Set sh2 = Sheets("±Æµ{")
   
6.     Sheets("±Æµ{").Activate
   
7.     With sh2
   
8.     For i = 1 To 35
   
9.        sh1.Cells(i * 8 - 3, 1).Resize(8, 1) = .Cells(i * 2 + 3, 1)
   
10.        For j = 10 To 50
    
11.            .Cells(i * 2 + 3, j).Select
    
12.            If .Cells(i * 2 + 3, j) <> "" Then
    
13.                 .Cells(3, .Cells(i * 2 + 3, j).Column).Select
    
14.                 sh1.Cells(i * 8 - 3, 2).Resize(8, 1) = .Cells(3, .Cells(i * 2 + 3, j).Column)
    
15.                 sh1.Cells(i * 8 - 3, 3).Resize(8, 1) = .Cells(3, .Cells(i * 2 + 3, j).Column)
    
16.                 k = j
    
17.                 Do
    
18.                     k = k + 1
    
19.                     If .Cells(i * 2 + 3, k) <> "" Then
    
20.                         sh1.Cells(i * 8 - 3, 3).Resize(8, 1) = .Cells(3, .Cells(i * 2 + 3, k).Column)
    
21.                     End If
    
22.                 Loop Until k > 50
    
23.                 If k > 50 Then GoTo nextI
    
24.            End If
    
25.        Next
    
26. nextI:
    
27.     Next
    
28.     End With
    
29. End Sub

½Æ»s¥N½X