- ©«¤l
- 4901
- ¥DÃD
- 44
- ºëµØ
- 24
- ¿n¤À
- 4916
- ÂI¦W
- 240
- §@·~¨t²Î
- Windows 7
- ³nÅ骩¥»
- Office 20xx
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥x¥_
- µù¥U®É¶¡
- 2010-4-30
- ³Ì«áµn¿ý
- 2024-11-6
|
¦^´_ 1# macro0029 - Sub ex()
- Dim ar(), ay()
- With Sheets("Á`ªí")
- r = 2
- Do Until .Cells(r, 1) = ""
- If .Cells(r, "J") = "¦¬¤ä½Õ¾ã" Then
- If .Cells(r, "A") = "7070" Then
- ReDim Preserve ar(s)
- ar(s) = Array(.Cells(r, "A"), .Cells(r, "D"), .Cells(r, "E"), .Cells(r, "F"), .Cells(r, "G") & .Cells(r, "H"), .Cells(r, "I"), .Cells(r, "J"))
- s = s + 1
- Else
- ReDim Preserve ay(i)
- ay(i) = Array(.Cells(r, "A"), .Cells(r, "D"), .Cells(r, "E"), .Cells(r, "F"), .Cells(r, "G") & .Cells(r, "H"), .Cells(r, "I"), .Cells(r, "J"))
- i = i + 1
- End If
- End If
- r = r + 1
- Loop
- End With
- Sheets("»s²¼¾÷ºc¬O7070¥BÃþ§O¬°¦¬¤ä½Õ¾ã").[A2].Resize(s, 7) = Application.Transpose(Application.Transpose(ar))
- Sheets("»s²¼¾÷ºc«D7070¥BÃþ§O¬°¦¬¤ä½Õ¾ã").[A2].Resize(i, 7) = Application.Transpose(Application.Transpose(ay))
- End Sub
½Æ»s¥N½X |
|