EXCEL²M³æ¦p¦óÂà´«¦¨°]¬F³¡¹q¤lµo²¼®æ¦¡

VANESSA

§Ú¦³¤@¥÷EXCEL²M³æ(¦P¤@¦æ¦³µo²¼³æÀY¤Îµo²¼³æ¨­,¦pªG³æ¨­¦³2¦æ,¨º­Ó³æÀY´N·|­«ÂÐ),½Ð°Ý¦p¦óÂà´«¦¨°]¬F³¡¹q¤lµo²¼CSVªº®æ¦¡(³æÀY¤@¦æ,¤U¤@¦æ³æ¨­,¤@­Ó«~¦W¤@¦æ,¦A´«¤U¤@­Ó³æÀY,¦A´«¤U¤@µ§³æ¨­ )
½Ð¦U¦ì¤j¤jÀ°À°¦£,ÁÂÁÂ
¬¡­¶Ã¯1.zip (22 Bytes)

¤U¸ü¦¸¼Æ: 10

2020-8-14 12:33

VANESSA

¬¡­¶Ã¯1.zip (22 Bytes)

¤U¸ü¦¸¼Æ: 7

2020-8-14 14:54

©êºp,­è¤~Àɮצn¹³¨S¤W¶Ç¦¨¥\

VANESSA

¬¡­¶Ã¯1.zip (8.6 KB)

¤U¸ü¦¸¼Æ: 9

2020-8-14 15:04

³o¦¸ªþÀɦ¨¥»¤F,½Ð°Ñ·Ó,ÁÂÁÂ

­ã´£³¡ªL

ªí¨­µ§¼Æ¤£©w, ¥Îvba§a!
¼W¥[¤@­Ó¤u§@ªí2:
Sub ¸ü¤J()
Dim xR As Range, xH As Range, T$
[¤u§@ªí2!A1:L3000].ClearContents
Set xH = [¤u§@ªí2!A1]
Application.ScreenUpdating = False
For Each xR In Range([¤u§@ªí1!A1], [¤u§@ªí1!A65536].End(xlUp))
    If xR <> "M" Then GoTo 101
    If xR(1, 2) <> T Then
       xR.Resize(1, 12).Copy xH
       Set xH = xH(2):  T = xR(1, 2)
    End If
    xR(1, 16).Resize(1, 6).Copy xH
    Set xH = xH(2)
101: Next
End Sub

Xl0000322.rar (11.59 KB)

¤U¸ü¦¸¼Æ: 28

2020-8-15 10:08

VANESSA

¦^´_ 4# ­ã´£³¡ªL


    ¥i¥H吔,ÁÂÁÂ,

VANESSA

½Ð°Ý¦pªG§Ú·Q¨C¦¸°õ¦æVBA®É,¥L¥i¥H©T©w¥ý²£¥Í¤U¦C³o¦æ,À³¸Ó­n¦p¦ó¦æ­×§ïVBA?
H        12345678        ´ú¸ÕªÑ¥÷¦³­­¤½¥q        ¥x¥_¥«¤¤¥¿°Ï        02-88888888

samwang

¦^´_ 6# VANESSA


¤£¤Ó¯à¤F¸Ñ±zªº·N«ä¡A¥i¥H¤W¶Ç§¹¦¨«áªºÀɮ׶Ü? ÁÂÁ¡C

s3526369

¦^´_ 6# VANESSA


   Sub ¸ü¤J()
Dim xR As Range, xH As Range, T$
[¤u§@ªí2!A1:L3000].ClearContents
[¤u§@ªí1!A1].Resize(1, 5).Copy [¤u§@ªí2!A1:E1]  ''<---·s¼W³o¤@¬q
Set xH = [¤u§@ªí2!A2]
Application.ScreenUpdating = False
For Each xR In Range([¤u§@ªí1!A1], [¤u§@ªí1!A65536].End(xlUp))
    If xR <> "M" Then GoTo 101
    If xR(1, 2) <> T Then
       xR.Resize(1, 12).Copy xH
       Set xH = xH(2):  T = xR(1, 2)
    End If
    xR(1, 16).Resize(1, 6).Copy xH
    Set xH = xH(2)
101: Next
End Sub