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

½Ð°Ý¦p¦ó­pºâÁ`©M(¨Cµ§¸ê®Æ½d³ò¤£¤@)

¦^´_ 1# yanto913
  1. Sub Ex()
  2.     Dim Sh As Worksheet
  3.     For Each Sh In Sheets(Array("SHEET1", "SHEET2"))
  4.         With Sh.Range("A1").CurrentRegion
  5.             .Cells(.Count).Offset(1, -1) = "Á`©M"
  6.             .Cells(.Count).Offset(1) = Application.Sum(.Columns(.Columns.Count))
  7.         End With
  8.     Next
  9. End Sub
½Æ»s¥N½X

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