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

[µo°Ý] 将A¦C对应ªºB¦C¥Î¨ç数¤£­«Î`ªº¦C¥X¦bD¦C?

[µo°Ý] 将A¦C对应ªºB¦C¥Î¨ç数¤£­«Î`ªº¦C¥X¦bD¦C?

¥»©«³Ì«á¥Ñ flying008 ©ó 2014-2-28 15:19 ½s¿è

¦U¦ì¤j¤j¥­¦w!

        请¬Ý§Úªºªþ¥óªí®æsheet2.
       A¦C为¥Í产§å号[¦³­«Î`], B¦C为¥Í产§å号©Ò­n¥Î¨ìªº§÷®Æ¦W称[¦³­«Î`], 现¦b­n¦bE¦C¨½§âA¦C¥Í产§å号对应ªºB¦C§÷®Æ¦W称¥Î¨ç数¤£­«Î`ªº¦C¥X, ·Q¥Îindex+match¨ç数实现, ¦ý¬O这¨½¦³2个条¥ó , ¦Ó¥B³£¦³­«Î`数­È, 实¦b·Q¯}头¤F, 请¤j¤j«ü±ÐD¦C¥Î¨ç数¦p¦ó写¤½¦¡, 谢谢!


     为¤°¤\§Ú现¦b¤W传¤£¤Fªþ¥ó?
============
A¦C                        B¦C                             C¦C                          D¦C
¥Í产§å号              §÷®Æ¦W称                   ¥Í产§å号                  §÷®Æ¦W称
15003                   ©³ªO                           15002                      ©³ªO
15003                   ©³ªO                           15002                      ©³ªO
15003                   ©³ªO                           15002                      ©³ªO
15003                   ©³ªO                           15002                      ©³ªO
15003                   ©³ªO                           15002                      ©³ªO
15003                   ©³ªO                           15002                      ©³ªO
15003                   ©³ªO                           15002                      ©³ªO
15003                   ©³ªO                           15002                      ©³ªO
¥u¦³·Q¤£¨ìªº,
没¦³°µ¤£¨ìªº.

为¤°¤\§Ú现¦b¤W传¤£¤Fªþ¥ó?
²Ä1楼ªºªí®æ¬O错误ªº, 请¤j¤j¬Ý¤Uªí, D¦Cªº§÷®ÆÉOC¦C对应, 谢谢!
============
A¦C                        B¦C                             C¦C                          D¦C
¥Í产§å号              §÷®Æ¦W称                   ¥Í产§å号                  §÷®Æ¦W称
15003                   ©³ªO                           15002                      ©³ªO
15002                   ©³ªO                           15002                      电Ìå
15004                   ªä¤ù                           15002                      ¬W¤l
15003                   电Ìå                           15002
15002                   电Ìå                           15003                      ©³ªO
15002                   ©³ªO                           15003                     电Ìå
15005                   ¥~壳                           
15002                   ¬W¤l
¥u¦³·Q¤£¨ìªº,
没¦³°µ¤£¨ìªº.

TOP

Index.rar (38.84 KB)
¥u¦³·Q¤£¨ìªº,
没¦³°µ¤£¨ìªº.

TOP

¦^´_ 3# flying008
(1)§Aªº·N«ä¬O:
140102¡@¡@©³ªO¡Ð¡÷140102¡@¡@©³ªO
140106¡@¡@©³ªO¡@¡@140102¡@¡@´¹¤ù
140102¡@¡@´¹¤ù¡@¡@140106¡@¡@©³ªO
140102¡@¡@©³ªO

(2)©Î¬O:
140102¡@¡@©³ªO¡Ð¡÷140102¡@¡@©³ªO
140106¡@¡@©³ªO¡@¡@140102¡@¡@´¹¤ù
140102¡@¡@´¹¤ù¡@¡@
140102¡@¡@©³ªO

TOP

¦^´_ 4# yen956

¤j¤j¥­¦w!

C¦C¬O¤â动输¤Jªº§å号, »Ý­n¥Î¨ç数¤½¦¡¦bD¦C¤¤ªð¦^对应ªº¤£­«Î`®Æ号, ©Ò¥H±z¦C¥Xªº1©Î2³£¥i¥H.
¥u¦³·Q¤£¨ìªº,
没¦³°µ¤£¨ìªº.

TOP

¦^´_ 5# flying008
(1)§Aªº·N«ä¬O:
¦pªG §÷®Æ¦WºÙ ¬Û¦P, ¥Í²£§å¸¹ ¤£¬Û¦P,
«h ¥Í²£§å¸¹ »P §÷®Æ¦WºÙ §¡«O¯d
140102¡@¡@©³ªO¡Ð¡÷140102¡@¡@©³ªO
140106¡@¡@©³ªO¡@¡@140102¡@¡@´¹¤ù
140102¡@¡@´¹¤ù¡@¡@140106¡@¡@©³ªO
140102¡@¡@©³ªO

(2)©Î¬O:
¥u­n §÷®Æ¦WºÙ ¬Û¦P, ¤£ºÞ ¥Í²£§å¸¹ ¬O§_¬Û¦P,
¥u«O¯d ¥Í²£§å¸¹ ¸û¤pªº
140102¡@¡@©³ªO¡Ð¡÷140102¡@¡@©³ªO
140106¡@¡@©³ªO¡@¡@140102¡@¡@´¹¤ù
140102¡@¡@´¹¤ù¡@¡@
140102¡@¡@©³ªO

¦P¼Ëªº½d¨Ò(«e´£), µ²ªG¤£¦P,
(1)«O¯d¤F¤T¶µ, (2)¥u«O¯d¤G¶µ,
«ç·|³£¥i¥H?
¨ì©³¤j¤jªº»Ý¨D¬O¤°»ò, ¥i¤£¥i¥H»¡²M·¡ÂI?

TOP

¦^´_  flying008
(1)§Aªº·N«ä¬O:
¦pªG §÷®Æ¦WºÙ ¬Û¦P, ¥Í²£§å¸¹ ¤£¬Û¦P,
«h ¥Í²£§å¸¹ »P §÷®Æ¦WºÙ §¡«O ...
yen956 µoªí©ó 2014-3-1 19:18


¤j¤j¥­¦w!
«ö±zªº·N«ä, ¨º´N¬O[1].
(1)
¦pªG §÷®Æ¦WºÙ ¬Û¦P, ¥Í²£§å¸¹ ¤£¬Û¦P,
«h ¥Í²£§å¸¹ »P §÷®Æ¦WºÙ §¡«O¯d.
¥u¦³·Q¤£¨ìªº,
没¦³°µ¤£¨ìªº.

TOP

¦^´_ 7# flying008
¤j¤j§A¦n:
¤½¦¡§Ú¥¿¦b¾Ç, ½Ð¸Õ¸Õvba
  1. Private Sub CommandButton1_Click()
  2.    Dim sh As Worksheet, i, ¼Æ¶q As Integer, rngA As Range
  3.    Set sh = ThisWorkbook.Sheets("Sheet1")
  4.    ¼Æ¶q = sh.[A1].End(xlDown).Row - 1
  5.    sh.[D2].Resize(¼Æ¶q, 2) = ""
  6.    sh.[A2].Resize(¼Æ¶q, 3).Sort _
  7.          Key1:=Range("B2"), _
  8.          Key2:=Range("A2"), _
  9.          Order1:=xlAscending, _
  10.          Order2:=xlAscending, _
  11.          Header:=xlNo
  12.    sh.[D2].Resize(1, 2).Value = sh.[A2].Resize(1, 2).Value
  13.    For i = 3 To ¼Æ¶q + 1
  14.        If sh.Cells(i, 1) <> Cells(i - 1, 1) Then
  15.            sh.Cells(sh.[D1].End(xlDown).Row + 1, 4).Resize(1, 2).Value = sh.Cells(i, 1).Resize(1, 2).Value
  16.        ElseIf sh.Cells(i, 1) = Cells(i - 1, 1) And sh.Cells(i, 2) <> Cells(i - 1, 2) Then
  17.            sh.Cells(sh.[D1].End(xlDown).Row + 1, 4).Resize(1, 2).Value = sh.Cells(i, 1).Resize(1, 2).Value
  18.        End If
  19.    Next
  20.    sh.[D2].Resize(¼Æ¶q, 2).Sort _
  21.          Key1:=Range("D2"), _
  22.          Order1:=xlAscending, _
  23.          Header:=xlNo
  24. End Sub
½Æ»s¥N½X

TOP

¦^´_ 7# flying008

´£¥Ü
1. = ¡eA¡f&¡eB¡f
2. ¥h1¤¤­«½Æ§Y¥i
ss

TOP

¥»©«³Ì«á¥Ñ yen956 ©ó 2014-3-2 12:27 ½s¿è

¦^´_ 7# flying008
¦pªG§A¦³2010+ªºª©¥»,¥i°Ñ¦Ò¤U¦C§@ªk(¼Æ½g),
(§Ú¥u¦³2003ª©¥», ¥¼¸Õ)
http://www.7headlines.com/article/show/342595316

TOP

        ÀR«ä¦Û¦b : §g¤l¦p¤ô¡AÀH¤è´N¶ê¡AµL³B¤£¦Û¦b¡C
ªð¦^¦Cªí ¤W¤@¥DÃD