- ©«¤l
- 163
- ¥DÃD
- 1
- ºëµØ
- 0
- ¿n¤À
- 170
- ÂI¦W
- 0
- §@·~¨t²Î
- Window 7
- ³nÅ骩¥»
- Office 2007
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-9-5
- ³Ì«áµn¿ý
- 2022-7-20
|
¥»©«³Ì«á¥Ñ Kubi ©ó 2019-3-25 20:34 ½s¿è
- Sub test()
- Dim d As Object
- Dim arr
- Dim brr()
- Set d = CreateObject("Scripting.Dictionary")
- With Sheets("Á`ªí")
- er = .[A65536].End(3).Row
- arr = .Range("A3:L" & er)
- For c = 5 To 9
- d(.Cells(2, c).Value) = c
- Next c
- End With
- room = Sheets("À]§O¤Î¼t°Ó").[C1].Value
- store = Sheets("À]§O¤Î¼t°Ó").[E1].Value
- n = 0
- For i = 1 To UBound(arr)
- If arr(i, 1) = room And arr(i, 12) = store Then
- n = n + 1
- ReDim Preserve brr(1 To 4, 1 To n)
- For j = 1 To 3
- brr(j, n) = arr(i, j + 1)
- Next j
- brr(4, n) = arr(i, d(store))
- End If
- Next i
- If n <> 0 Then
- Sheets("À]§O¤Î¼t°Ó").Rows("4:65536").Delete
- Sheets("À]§O¤Î¼t°Ó").[A4].Resize(n, 4) = Application.Transpose(brr)
- Else
- MsgBox "§ä¤£¨ì"
- End If
- Set d = Nothing
- Erase brr
- arr = ""
- End Sub
½Æ»s¥N½X ¦^´_ 6# tsuan |
|