- ©«¤l
- 258
- ¥DÃD
- 77
- ºëµØ
- 0
- ¿n¤À
- 385
- ÂI¦W
- 0
- §@·~¨t²Î
- Win7
- ³nÅ骩¥»
- Office2010
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- Taiwan
- µù¥U®É¶¡
- 2010-8-8
- ³Ì«áµn¿ý
- 2021-1-25
|
¥»©«³Ì«á¥Ñ yangjie ©ó 2012-9-7 00:47 ½s¿è
¦^´_ 2# kimbal
·P¿EKimbal
°ÝÃD¬°
default1 = wbf.Sheets("¼È¦s").Cells(1, 5)
For i = 1 To 10
n1(i) = wbf.Sheets("¼È¦s").Cells(i, 6)
If n1(i) = 0 Then
s1 = i - 1 's1¶×¥XÓ¼Æ
Exit For
End If
Next
Dim d As Object
Dim a As Range
Set d = CreateObject("Scripting.Dictionary")
With Workbooks(str1).Sheets(sh1)
For Each a In .Range(.[2,default1], .[65536,default1].End(xlUp))
d(a & "") = Array(a.Offset(, n1(1)-default1).Value, a.Offset(, n1(2)-default1).Value] ,---¦@s1Ó)
Next
End With
À³¦p¦óקï¬õ¦â¨º¤@¦æ¤§»yªk? |
|