¦p¦ó¦b¤£¿z¿ï±¡ªp°µ¾î¦V±Æ§Ç¨Ã»¼´î
- ©«¤l
- 9
- ¥DÃD
- 3
- ºëµØ
- 0
- ¿n¤À
- 10
- ÂI¦W
- 0
- §@·~¨t²Î
- WIN 8
- ³nÅ骩¥»
- OFFICE2003
- ¾\ŪÅv
- 10
- µù¥U®É¶¡
- 2019-7-20
- ³Ì«áµn¿ý
- 2020-9-6
|
¦p¦ó¦b¤£¿z¿ï±¡ªp°µ¾î¦V±Æ§Ç¨Ã»¼´î
|
|
|
|
|
|
- ©«¤l
- 1387
- ¥DÃD
- 4
- ºëµØ
- 0
- ¿n¤À
- 1397
- ÂI¦W
- 0
- §@·~¨t²Î
- WIN
- ³nÅ骩¥»
- 2007
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2015-9-11
- ³Ì«áµn¿ý
- 2024-11-13
|
|
google"EXCEL°g" blog ©Îgoogleºô§}:https://hcm19522.blogspot.com/
|
|
|
|
|
- ©«¤l
- 2833
- ¥DÃD
- 10
- ºëµØ
- 0
- ¿n¤À
- 2889
- ÂI¦W
- 0
- §@·~¨t²Î
- ¡e²¤¡f
- ³nÅ骩¥»
- ¡e²¤¡f
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¡e²¤¡f
- µù¥U®É¶¡
- 2013-5-13
- ³Ì«áµn¿ý
- 2024-11-12
|
Sub TEST()
Dim xR As Range, xD, U&, N&, T$
Set xD = CreateObject("Scripting.Dictionary")
With Sheets("¤u§@ªí2")
.Cells.Clear: .[a1] = "Frequency"
For Each xR In Range([¤u§@ªí1!A2], [¤u§@ªí1!A1].Cells(Rows.Count, 1).End(xlUp))
If xR.Row = 1 Or Val(xR) = 0 Or Val(xR(1, 8)) = 0 Then GoTo 101
T = Format(xR, "0000_") & xR & "Vpp"
U = xD(T)
If U = 0 Then N = N + 1: U = N: xD(T) = N: .Cells(U + 1, 1) = T
T = xR(1, 8)
If xD(T & "/") = 0 Then .Cells(1, Val(T) + 1) = T: xD(T & "/") = 1
xR(1, 9).Copy .Cells(U + 1, Val(T) + 1)
101: Next
End With
If N = 0 Then Exit Sub
On Error Resume Next
With Sheets("¤u§@ªí2")
.Rows(1).SpecialCells(xlCellTypeBlanks).EntireColumn.Delete
.UsedRange.Sort Key1:=.Range("A1"), Order1:=xlAscending, Header:=xlYes '¥Ñ¤p¦Ó¤j±Æ§Ç
'.UsedRange.Sort Key1:=.Range("A1"), Order1:=xlDescending, Header:=xlYes '¥Ñ¤j¦Ó¤p±Æ§Ç
.Columns(1).Replace "*_", "", Lookat:=xlPart
.Select
End With
End Sub
Xl0000146.rar (16.26 KB)
====================================== |
|
|
|
|
|
|