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

[µo°Ý] ¦p¦ó¥ÎVBA±NSHEET1¤º¬Û¦Pªº¸ê®Æ¦X¨Ö­pºâ«á½Æ»s¨ìSHEET2

[µo°Ý] ¦p¦ó¥ÎVBA±NSHEET1¤º¬Û¦Pªº¸ê®Æ¦X¨Ö­pºâ«á½Æ»s¨ìSHEET2

¦p¦ó¥ÎVBA±NSHEET1¤º¬Û¦Pªº¸ê®Æ¦X¨Ö­pºâ«á½Æ»s¨ìSHEET2¡A¨Ã¨Ì§Ç±Æ¦C¡G
¨Ò¦p¡GSHEET1¤ºªº
A1¬°ºK­n¡G¥NºÞ¶O¦¬¤J¡AB1¬°ª÷ÃB¡G10000
A2¬°ºK­n¡GºÏ¦©¦¬¤J¡GB2¡G¬°ª÷ÃB500
A3¬°ºK­n¡G¥NºÞ¶O¦¬¤J¡AB3¬°ª÷ÃB¡G1500
A4¬°ºK­n¡GºÏ¦©¦¬¤J¡GB4¡G¬°ª÷ÃB500

§Æ±æ¦bSHEET1¿é¤J§¹²¦«á¡A¦bSHEET2¯à¦Û°Ê¾ã¦X¬°
A1¬°ºK­n¡G¥NºÞ¶O¦¬¤J¡AB1¬°ª÷ÃB¡G11500( ¦X¨ÖSHEET1ªººK­n¡A¨Ã¥[Á`)
A2¬°ºK­n¡GºÏ¦©¦¬¤J¡GB2¡G¬°ª÷ÃB1000()( ¦X¨ÖSHEET1ªººK­n¡A¨Ã¥[Á`)

·Ð½Ð¤j¤j¸Ñ´b¡A¤£³Ó·P¿E.....
·Ð½Ðªþ±a§iª¾¸Ñ´b¤§µ{¦¡­n¶K¦bSHEET1ÁÙ¬OSHEET2ÁÙ¬O¼Ò²ÕÁÙ¬OWORKBOOK¸Ì
§A²q!!

¦^´_ 1# bear0925900003
¤£¥ÎVBAªº¸Ü¡A¥i¥Hª½±µ¿é¤J¤½¦¡´N·|À°§A­pºâ¤F¡A
¦bSheet2ªº    B1¿é¤J   =SUM(Sheet1!B1,Sheet1!B3)
                           B2¿é¤J   =SUM(Sheet1!B2,Sheet1!B4)

TOP

¦^´_ 1# bear0925900003
ª«¥ó¦³«ü©ú¤÷¼h µ{¦¡½X¥i¥ô·NÂ\
  1. Option Explicit
  2. Sub Ex()
  3.     Dim D As Object, i As Integer, A
  4.     Set D = CreateObject("SCRIPTING.DICTIONARY")
  5.     With Sheets("SHEET1")                                         ''¤u§@ªíª«¥ó
  6.         i = 1
  7.         Do While .Cells(i, "A") <> ""                               '¤u§@ªí.ª«¥ó  ¥[. ¬°¦¹ª«¥óªº ¤lª«¥ó,¤èªk,ÄÝ©Ê
  8.              'Do While .Range("A" & i) <> ""    '¤]¥i¥H¥Î Range
  9.             D(.Cells(i, "A").Value) = D(.Cells(i, "A").Value) + .Cells(i, "B")
  10.             i = i + 1
  11.         Loop
  12.     End With
  13.     If i > 1 Then
  14.         With Sheets("SHEET2")
  15.             .[A1].Resize(D.Count) = Application.Transpose(D.KEYS)
  16.             .[B1].Resize(D.Count) = Application.Transpose(D.ITEMS)
  17.         End With
  18.     End If
  19. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

·PÁ¤j¤jµL¨pªº¤À¨É¡A°ÝÃD¤w¸Ñ¨M¡AµLºÉ·P®¦!!
§A²q!!

TOP

¦^´_ 3# GBKEE


   ½Ð°Ý¦Ñ®v­Y­n§ï¦¨SHEET1¡BSHEET2¦X¨Ö¨ìSHEET3¸Ó¦p¦ó­×§ï
§A²q!!

TOP

¦^´_ 5# bear0925900003
  1. Option Explicit
  2. Sub Ex()
  3.     Dim D As Object, i As Integer
  4.     Set D = CreateObject("SCRIPTING.DICTIONARY")
  5.     With Sheets("SHEET1")                                         ''¤u§@ªíª«¥ó
  6.         i = 1
  7.         Do While .Cells(i, "A") <> ""                               '¤u§@ªí.ª«¥ó  ¥[. ¬°¦¹ª«¥óªº ¤lª«¥ó,¤èªk,ÄÝ©Ê
  8.              'Do While .Range("A" & i) <> ""    '¤]¥i¥H¥Î Range
  9.             D(.Cells(i, "A").Value) = D(.Cells(i, "A").Value) + .Cells(i, "B")
  10.             i = i + 1
  11.         Loop
  12.     End With
  13.     With Sheets("SHEET2")                                         ''¤u§@ªíª«¥ó
  14.         i = 1
  15.         Do While .Cells(i, "A") <> ""                               '¤u§@ªí.ª«¥ó  ¥[. ¬°¦¹ª«¥óªº ¤lª«¥ó,¤èªk,ÄÝ©Ê
  16.              'Do While .Range("A" & i) <> ""    '¤]¥i¥H¥Î Range
  17.             D(.Cells(i, "A").Value) = D(.Cells(i, "A").Value) + .Cells(i, "B")
  18.             i = i + 1
  19.         Loop
  20.     End With
  21.     If D.Count > 1 Then
  22.         With Sheets("SHEET3")
  23.             .[A1].Resize(D.Count) = Application.Transpose(D.KEYS)
  24.             .[B1].Resize(D.Count) = Application.Transpose(D.ITEMS)
  25.         End With
  26.     End If
  27. End Sub
½Æ»s¥N½X
  1. Sub Ex_a()
  2.     Dim D As Object, i As Integer, e As Variant
  3.     Set D = CreateObject("SCRIPTING.DICTIONARY")
  4.     For Each e In Array(Sheets("SHEET1"), Sheets("SHEET2"), Sheets("SHEET3"))
  5.         With e
  6.             i = 1
  7.             Do While .Cells(i, "A") <> ""                              '¤u§@ªí.ª«¥ó  ¥[. ¬°¦¹ª«¥óªº ¤lª«¥ó,¤èªk,ÄÝ©Ê
  8.                  'Do While .Range("A" & i) <> ""    '¤]¥i¥H¥Î Range
  9.                 D(.Cells(i, "A").Value) = D(.Cells(i, "A").Value) + .Cells(i, "B")
  10.                 i = i + 1
  11.             Loop
  12.         End With
  13.     Next
  14.    If D.Count > 1 Then
  15.         With Sheets("SHEET4")
  16.             .[A1].Resize(D.Count) = Application.Transpose(D.KEYS)
  17.             .[B1].Resize(D.Count) = Application.Transpose(D.ITEMS)
  18.         End With
  19.     End If
  20. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 6# GBKEE


    ­ì¨Ó¬O³o¼Ë,¸³¤F,ÁÂÁ¦Ѯv
§A²q!!

TOP

¦^´_ 3# GBKEE


    ½Ð°Ý¦Ñ®v¡A±zµ¹ªºµ{¦¡¬OµL­­ªº©¹¤U¿z¿ï½Æ»s¡A²{¦³´X­ÓºÃ°Ý·Q½Ð±Ð¡G
1.¦pªG¥u¬O­n©T©w½d³òªº¼gªk(EX¡GA1~B10³o­Ó½d³ò)¡A¨º¸Ó¦p¦ó­×¥¿¥»µ{¦¡
2.¦pªG¬°¦h­¶¥B©T©w½d³òªº»yªk¤S¸Ó¦p¦ó­×¥¿(EX:sheets1¡Asheets2ªºA1~B10¦X¨Ö½Æ»s¨ìsheet3ªºB1~C10)

¤p§Ì¸Õ¤F¦h¦¸©l²×µLªk­×§ï¦¨¥\¡AÁٽнç±Ð¡AµL­­·P¿E
§A²q!!

TOP

¦^´_ 8# bear0925900003
¥Î¸ê®Æ->¦X¨Ö·Jºâªº«ü¥O ¸Õ¸Õ¬Ý
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

        ÀR«ä¦Û¦b : ¡i¦æµ½­n¤Î®É¡j¦æµ½­n¤Î®É¡A¥\¼w­n«ùÄò¡C¦p¿N¶}¤ô¤@¯ë¡A¥¼¿N¶}¤§«e¤d¸U¤£­n°±º¶¤õ­Ô¡A§_«h­«¨Ó´N¤Ó¶O¨Æ¤F¡C
ªð¦^¦Cªí ¤W¤@¥DÃD