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

¦p¦ó´M§ä«ü©w¦ì¸m«á­pºâ¤½¦¡

¦^´_ 1# enoch
  1. Sub ex()
  2. Dim Sh As Worksheet, A As Range
  3. For Each Sh In Sheets
  4. With Sh
  5.   Set A = .Columns("C:E").Find("Total")
  6.   If Not A Is Nothing Then .Cells(A.Row, "F") = "=SUM(R2C:R[-1]C)"
  7. End With
  8. Next
  9. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

        ÀR«ä¦Û¦b : ¨Ã«D¦³¿ú¾{¬O§Ö¼Ö¡A°Ý¤ßµL·\¤ß³Ì¦w¡C
ªð¦^¦Cªí ¤W¤@¥DÃD