- ©«¤l
- 4901
- ¥DÃD
- 44
- ºëµØ
- 24
- ¿n¤À
- 4916
- ÂI¦W
- 239
- §@·~¨t²Î
- Windows 7
- ³nÅ骩¥»
- Office 20xx
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥x¥_
- µù¥U®É¶¡
- 2010-4-30
- ³Ì«áµn¿ý
- 2024-11-4
|
¦^´_ 9# JEAN - Sub »â¥Î³æ¼g¤J()
- Dim Ar()
- With Sheets("»â¥Î³æ")
- If Application.CountA(.[A6:A16]) > 0 Then
- For Each a In .[A6:A16].SpecialCells(xlCellTypeConstants)
- ReDim Preserve Ar(s)
- Ar(s) = Array(.[B3].Value, .[B4].Value, .[H3].Value, a.Value, a.Offset(, 1).Value, a.Offset(, 2).Value, a.Offset(, 3).Value, a.Offset(, 4).Value, a.Offset(, 5).Value, a.Offset(, 6).Value, a.Offset(, 7).Value)
- s = s + 1
- Next
- Sheets("»â¥Î°O¿ý©ú²Óªí").[A1048576].End(xlUp).Offset(1, 0).Resize(s, 11) = Application.Transpose(Application.Transpose(Ar))
- End If
- End With
- End Sub
½Æ»s¥N½X |
|