ªð¦^¦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®É¶¡µLªk¾B¾×¡j©È®É¶¡®ø³u¡Aªá¤F³\¦h¤ß¦å¡A·QºÉ¦U¦¡¤èªk­n¾B¾×®É¶¡¡Aµ²ªG¬O¡G®ö¶O¤F§ó¦h®É¶¡¡A¥B¤@µL©Ò¦¨¡I
ªð¦^¦Cªí ¤W¤@¥DÃD