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

½Ð±Ð»yªk¤Wªº°ÝÃD¡H

¥»©«³Ì«á¥Ñ GBKEE ©ó 2018-4-21 09:03 ½s¿è

¦^´_ 11# skyutm
¶K¤W­È
  1. Sub ¦Û°Ê½Æ»s¦¨ÁZ()
  2.     Dim Rng As Range
  3.     With Sheets("°ê¥­®É").Range("Q2:Q22")  '¦³©T©w¤H¼Æ¶Ü?
  4.         Set Rng = Sheets("Á`¦¨ÁZ").Range("C2").Resize(.Cells.Count)
  5.         Rng = .Value
  6.     End With
  7.     With Rng
  8.         .Cells(.Cells.Count + 1) = "=AVERAGE(" & Rng.Address & ")"
  9.     End With
  10. End Sub
½Æ»s¥N½X
'¾ã­Ó½Æ»s
  1. Sub ¦Û°Ê½Æ»s¦¨ÁZ()
  2.     With Sheets(1).Range("°ê¥­®É").Range("Q2:Q22")  '¦³©T©w¤H¼Æ¶Ü?
  3.          .Copy Sheets("Á`¦¨ÁZ").Range("C2").Resize(.Cells.Count)
  4.          Sheets("Á`¦¨ÁZ").Range("C2").Cells(.Cells.Count + 1) = "=AVERAGE(" & Sheets(2).Range("C2").Resize(.Rows.Count).Address & ")"
  5.     End With
  6. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 13# GBKEE

«z¡I·PÁª©¥D¡AªGµM¬O¦³²`«×ªº»yªk¡C

TOP

        ÀR«ä¦Û¦b : ºw¤ô¦¨ªe¡C²É¦Ì¦¨ÅÚ¡A¤Å»´¤vÆF¡A¤Å¥Hµ½¤p¦Ó¤£¬°¡C
ªð¦^¦Cªí ¤W¤@¥DÃD