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

¦h­¶ªº°ÝÃD

¥»©«³Ì«á¥Ñ 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

        ÀR«ä¦Û¦b : ¡i¥Í©R¦b©I§l¶¡¡j¦òªû»¡¡G¡u¥Í©R¦b©I§l¶¡¡C¡v¤HµLªkºÞ¦í¦Û¤vªº¥Í©R¡A§óµLªk¾×¦í¦º´Á¡AÅý¦Û¤v¥Ã¦í¤H¶¡¡C¬JµM¥Í©R¥h¨Ó³o»òµL±`¡A§Ú­Ì§óÀ³¸Ó¦n¦n¦a·R±¤¥¦¡B§Q¥Î¥¦¡B¥R¹ê¥¦¡AÅý³oµL±`¡BÄ_¶Qªº¥Í©R¡A´²µo¥¦¯uµ½¬üªº¥ú½÷¡A¬M·Ó¥X¥Í©R¯u¥¿ªº»ù­È¡C
ªð¦^¦Cªí ¤W¤@¥DÃD