ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

¦p¦ó¦b¤£¿z¿ï±¡ªp°µ¾î¦V±Æ§Ç¨Ã»¼´î

¦p¦ó¦b¤£¿z¿ï±¡ªp°µ¾î¦V±Æ§Ç¨Ã»¼´î

¦U¦ì¦n~
¥Ñ©ó¤½¥qµ{¦¡´ú¸Õ»Ý­n°µµ²ªG§PÂ_~¤£¹L¨C¦¸´ú¸Õµ²ªG§¡¤£¬Û¦P
¦]µ{¦¡µ§¼Æ¸û¦hÅU»Ý­n°µ¿z¿ï«á¸û¦n¶i¦æ§PÂ_
·Q§Q¥Î¤£·|¼vÅT³øªíªºÀô¹Ò¤Uª½±µ°µ¯S®í±Æ¦C
¤p§Ì·Q§âH¦æ¨Ì§Ç±Æ¦C±q§C¨ì°ª(¨Ã¥B¬Û¦P¼Æ¦r¤£·|­«½Æ)
¤§«á¦A±NA¦æ¤¤¤]¨Ì§Ç¥Ñ§C¨ì°ª°µ±Æ§Ç,³Ì«á¦A±N¨C¦¸Testªºµ²ªG¨Ì§Ç±Æ¦C¾î¦V¨ì¥t¤@¤u§@ªí
¤U¹Ï¬°´ú¸Õ«áªº³øªí

±ý°µ¾î¦V±Æ§Ç

ªþ¤u§@ªí
´ú¸Õ.rar (23.85 KB)

¦]´ú¸Õµ§¼Æ¸û¦h¥Bµ²ªG§¡¤£©T©w~¥i§_½Ðª©¤j°ª¤â¥Î¨ç¼Æ©ÎªÌvbaÀ°¦£¨ó§U¤p§Ì
·PÁÂ~

google"EXCEL°g"  blog  ©Îgoogleºô§}:https://hcm19522.blogspot.com/

TOP

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)


======================================

TOP

        ÀR«ä¦Û¦b : §Ú­Ì³Ì¤jªº¼Ä¤H¤£¬O§O¤H¡D¥i¯à¬O¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD