- ©«¤l
- 4901
- ¥DÃD
- 44
- ºëµØ
- 24
- ¿n¤À
- 4916
- ÂI¦W
- 277
- §@·~¨t²Î
- Windows 7
- ³nÅ骩¥»
- Office 20xx
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥x¥_
- µù¥U®É¶¡
- 2010-4-30
- ³Ì«áµn¿ý
- 2024-12-23
|
¦^´_ 8# billchenfantasy
¤£ª¾¬O§_¥i¥H¦A½Ð±ÐY±N"«½Æªº¸ê®Æ§R°£"³o¶µ§ï¬°±NµL0-0ªº¨º¤@¦C§R°£
§A»¡¥»¨Ò¤¤¬O¤H¤u¤ñ¹ï§R°£¤£§t0-0ªº¦C
¦ý¬O¡Aì¸ê®ÆAÄæ³£¬O0-0¡A¬°¦ó¬O§R°£¤£§t0-0?
Y±Æ°£¤£§t0-0ªº¦C¡A´N¦b¥[¤J¦r¨å®É§PÂ_¬O§_§t¦³0-0- Sub ex()
- Dim Rng As Range, A As Range, C As Range
- Set d = CreateObject("Scripting.Dictionary")
- d("first") = Array("Mplan_no", "Mdate") '·s¼ÐÃD
- [A1].End(xlToRight).Offset(, -1).Resize(, 2).EntireColumn.Cut '³Ì«á2Äæ°Å¤U
- [C1].Insert '¦bCÄæ´¡¤J°Å¤UªºÀx¦s®æ
- For Each A In Range([A2], [A2].End(xlDown))
- mystr = "": x = "": y = ""
- Set Rng = A.EntireRow.SpecialCells(xlCellTypeConstants, xlNumbers) '¥H¤é´Á§@¬°°ò·Ç
- For Each C In Rng
- 'mystr = IIf(mystr = "", C.Offset(, -1) & C, mystr & C.Offset(, -1) & C) 'Yn±Æ°£«½Æ«h¨Ï¥Î¦¹¬°¦r¨å¯Á¤Þ
- x = IIf(x = "", C.Offset(, -1), x & " " & C.Offset(, -1))
- y = IIf(y = "", C, y & " " & C)
- Next
- If InStr(x, "0-0") > 0 Then '¾ã¦C¤¤¤£§t"0-0"
- s = s + 1
- d(s) = Array(x, y)
- End If
-
- 'd(mystr) = Array(x, y) 'Yn±Æ°£«½Æ«h¨Ï¥Î¦¹¬°¦r¨å¯Á¤Þ
- Next
- [C:D].Cut [A1].End(xlToRight).Offset(, 1) '±NC:DÄæ°Å¤U¶K¦^¸ê®Æªí³Ì¥½ºÝ
- [C:D].Delete 'C:D°Å¤U«áÅܦ¨ªÅ¥ÕÄæ¡A©Ò¥H±N¨ä§R°£¡A¦^ÂЦ¨ì¸ê®Æªí
- [A1].End(xlDown).Offset(3).Resize(d.Count, 2) = Application.Transpose(Application.Transpose(d.items))
- End Sub
½Æ»s¥N½X |
|