- ©«¤l
- 4901
- ¥DÃD
- 44
- ºëµØ
- 24
- ¿n¤À
- 4916
- ÂI¦W
- 244
- §@·~¨t²Î
- Windows 7
- ³nÅ骩¥»
- Office 20xx
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥x¥_
- µù¥U®É¶¡
- 2010-4-30
- ³Ì«áµn¿ý
- 2024-11-10
|
¦^´_ 3# 317
¥Î±Æ§Ç¥i¥H¶Ü?- Sub CopyData()
- Dim ¦C As Integer
- Dim ³fª«½s¸¹ As String
- Dim ³fª«¦WºÙ As String
- Dim Ãþ«¬ As String
- Dim ¼Æ¶q As Integer
- Set d = CreateObject("Scripting.Dictionary")
- ¦C = ActiveCell.Row
- ¿ï¾Ü¥Î³~ = Cells(¦C, 2)
- ³fª«½s¸¹ = Cells(¦C, 3)
- ³fª«¦WºÙ = Cells(¦C, 4)
- Ãþ«¬ = Cells(¦C, 5)
- ¼Æ¶q = Cells(¦C, 8)
- Windows("b.xls").Activate
- With Workbooks("b.xls").Sheets("sheet1")
- .Select
- For Each a In .[AB3:AB6]
- d(a.Value) = a.Interior.ColorIndex
- Next
- Set a = .[A65536].End(xlUp).Offset(1, 0).Resize(, 5)
- a.Interior.ColorIndex = d(¿ï¾Ü¥Î³~)
- a.Value = Array(¿ï¾Ü¥Î³~, ³fª«½s¸¹, ³fª«¦WºÙ, Ãþ«¬, ¼Æ¶q)
- a.Select
- .Range(.[A2:E2], .[A2:E2].End(xlDown)).Sort key1:=.[A2], Header:=xlYes
- End With
- End Sub
½Æ»s¥N½X |
|