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

¦h­¶ªº°ÝÃD

¦h­¶ªº°ÝÃD

¦U¦ì¤j¯«:

§Ú­p³]¬O±N¨C¤@­Ó¬¡­¶Á¡ªº³Ì«á¤@¦æªº¸ê®Æ½Æ»s¨ì²Ä¤@­Ó¬¡­¶Á¡(summary)¬Û¹ïÀ³ªºÀx³Æ®æ,

¦ý¦pªG§Ú¤¤³~§R°£¤@­Ó¬¡­¶Á¡, excel ªºSheet (x)´N·|²Ö¥[, sheet(x+1), ´N¬O³o¼Ë,¬Û¹ïÀ³½Æ»sªºµ{§Ç´N·|¥¢®Ä, ½Ð°Ý¦p¦ó¸Ñ¨M??

½Ð¦U¸ô°ª¤H«üÂI¤p§Ì

ÁÂÁÂ

Book27.rar (58.08 KB)

¦^´_ 1# mdr0465


   ­þ¸Ì¥¢®Ä?   ¯à§_¥Î¹Ï¤ùªí¥Ü~~~     §Ú´ú¸Õ¦n¹³¨S°ÝÃD©O~~~

TOP

¦^´_ 2# ·L­·


   ¦]¬°³Ì«áªº2Äæ¬O¨S¦³½Æ¨îªº¸êªº...ÁÂÁÂ

Â^¨ú.PNG (43.28 KB)

Â^¨ú.PNG

TOP

¦^´_ 3# mdr0465


§A¦n, §Ú­×§ï¤F¤@¨Ç³¡¥÷,¦ý¦b17©M18Äæ(¶À¦â³¡¥÷),¤£ª¾¹D¬°¦ó®³¨ú¤£¨ì¸ê®Æ

½Ð½ç±Ð,ÁÂÁÂ

Book29.rar (60.23 KB)

TOP

¥»©«³Ì«á¥Ñ n7822123 ©ó 2020-5-28 03:07 ½s¿è

¦^´_ 4# mdr0465


¦]¬°·í§Aªºy=17ªº®É­Ô x=14

¦Ó§A¤S³]©w j±q2¶]¨ìx ¡A©Ò¥H j=2~14  

§Aªº j ¥Ã»·¶]¤£¨ì§A­n¿é¤J¸ê®Æªº¦ì¸m ²Ä17¦C

©Z¥Õ»¡¡A§A°j°é¥Îªº¤è¦¡¤£¹ï

¨S¦³½ÆÂø¨ì»Ý­n3¼hFor °j°é

µ{¦¡¬O¨Ì»Ý¨D¼gªº¡A»Ý¨Dªí¹F¤£²M·¡
©ÎªÌ¨S¦³¤W¶Çªþ¥ó¡A·R²ö¯à§U

TOP

¦^´_ 1# mdr0465


»Ý¨D¡G§Ú­p³]¬O±N¨C¤@­Ó¬¡­¶Á¡ªº³Ì«á¤@¦æªº¸ê®Æ½Æ»s¨ì²Ä¤@­Ó¬¡­¶Á¡(summary)¬Û¹ïÀ³ªºÀx³Æ®æ
  1. Sub test()
  2. Application.ScreenUpdating = False
  3. Range("A2:I100").ClearContents
  4. For sh = 2 To Sheets.count
  5.   With Sheets(sh)
  6.     Cells(sh, 1) = .Name  'ITEM
  7.     If .[A2] <> "" Then  '¦³¸ê®Æ¤~¶i
  8.       Rn% = .[A65535].End(xlUp).Row  'Rn=¨C­¶¸ê®Æªº³Ì«á¤@µ§¦C¼Æ(§ìAÄæ§PÂ_)
  9.       Cells(sh, 2) = .Cells(Rn, 2)  'SOC
  10.       Cells(sh, 3) = .Cells(Rn, 3)  'REGION
  11.       Cells(sh, 4) = .Cells(Rn, 6)  'BRAND
  12.       Cells(sh, 5) = .Cells(Rn, 4)  'PLANT
  13.       Cells(sh, 6) = .Cells(Rn, 5)  'ITEMS
  14.       Cells(sh, 7) = .Cells(Rn, 7)  'SOLD PRICE
  15.       Cells(sh, 8) = .Cells(Rn, 1)  'DATE
  16.       Cells(sh, 9) = .Cells(Rn, 10) 'SALES
  17.     End If
  18.   End With
  19. Next sh
  20. End Sub
½Æ»s¥N½X
µ{¦¡¬O¨Ì»Ý¨D¼gªº¡A»Ý¨Dªí¹F¤£²M·¡
©ÎªÌ¨S¦³¤W¶Çªþ¥ó¡A·R²ö¯à§U

TOP

¦^´_ 6# n7822123


    ®v¥S, ¯uªºÁÂÁ§AªºÀ°¦£,

ÁÂÁÂ

TOP

¦^´_ 6# n7822123

®v¥S§A¦n,§ÚÁÙ¦³¤@­Ó¦a¤è­ø©ú¥Õ.

      Rn% = .[A65535].End(xlUp).Row  'Rn=¨C­¶¸ê®Æªº³Ì«á¤@µ§¦C¼Æ(§ìAÄæ§PÂ_)

½Ð°ÝRn% ©O­Ó«Y¥Nªí¤°»ò·N«ä©O??

½Ð½ç±Ð,ÁÂÁÂ

TOP

¦^´_  n7822123

®v¥S§A¦n,§ÚÁÙ¦³¤@­Ó¦a¤è­ø©ú¥Õ.

      Rn% = .[A65535].End(xlUp).Row  'Rn=¨C­¶¸ê ...
mdr0465 µoªí©ó 2020-5-31 14:25


Rn% ¬O©ñ¦b = ªº¥ªÃä,
¥Nªí¥¦¬O¤@­ÓÅܼÆ,
% ¬O¾ã¼ÆÅܼƫŧiªº¯S®íªí¥Ü¤è¦¡

Dim Rn%
µ¥¦P©ó
Dim Rn As Integer

n7822123 ¥S
¥u¬O¬Ù²¤¤F«Å§i¦¡,
ª½±µ«Å§i¨Ã¨Ï¥ÎÅܼƽ}¤F.

TOP

¦^´_ 9# luhpro

®v¥S¡AÁÂÁ§A¸Ô²Ó¸ÑÄÀ
ÁÂÁÂ

TOP

        ÀR«ä¦Û¦b : ­n¥Î¤ß¡A¤£­n¾Þ¤ß¡B·Ð¤ß¡C
ªð¦^¦Cªí ¤W¤@¥DÃD