- ©«¤l
- 4901
- ¥DÃD
- 44
- ºëµØ
- 24
- ¿n¤À
- 4916
- ÂI¦W
- 278
- §@·~¨t²Î
- Windows 7
- ³nÅ骩¥»
- Office 20xx
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥x¥_
- µù¥U®É¶¡
- 2010-4-30
- ³Ì«áµn¿ý
- 2024-12-24
|
¦^´_ 5# luke
¸Õ¸Õ¬Ý- Sub Âà¤J()
- With Sheet1
- r = 1: i = 3: k = 3
- Do Until r > 163
- .Cells(r, 2).Resize(IIf(r >= 65, 4, 8), 1).Copy Sheet2.Cells(i, k)
- If r = 65 Then
- r = 101
- Else
- r = r + IIf(r >= 65, 4, 8)
- End If
- If r <= 65 Then
- i = IIf(i = 3, 13, 3): k = IIf(i = 3, k + 5, k)
- ElseIf Int(((Int((r - 1) / 4) - 24) - 1) / 2) Mod 2 = 0 Then
- i = IIf(r = 101, 24, IIf(i = 24, 29, 24)): k = IIf(r = 101, 3, IIf(i = 24, k + 5, k))
- Else
- i = IIf(i = 29, 35, IIf(i = 35, 40, 35)): k = IIf(i = 24, k + 5, k)
- End If
- Loop
- End With
- End Sub
- Sub 刴X()
- Dim A As Range, C As Range
- With Sheet2
- Set A = Union(.[C3:R20], .[C24:R43])
- For i = 1 To A.Areas.Count
- r = IIf(i = 1, 1, 101)
- For j = 1 To 16 Step 5
- Set C = A.Areas(i).Columns(j).SpecialCells(xlCellTypeConstants)
- 'C.Select
- C.Copy Sheet1.Cells(r, 3)
- r = r + C.Count
- Next
- Next
- End With
- End Sub
½Æ»s¥N½X |
|