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

[µo°Ý] [µo°Ý]§PÂ_AÀx¦s®æ«á,BÀx¦s®æ¸É¹s

[µo°Ý] [µo°Ý]§PÂ_AÀx¦s®æ«á,BÀx¦s®æ¸É¹s

½Ð±Ð¤j®v­Ì~
·íNAMEÄæ¦ì¬O¦³¸ê®Æ¡A«hR,LÄæ¦ì¸É¹s
·íNAMEÄæ¦ì¬OªÅ­È¡A«hnoÄæ¦ì§R°£¸ê®Æ
¥Ø«e¤p¤k¤l¥u¼gªº¥X³æ¤@§PÂ_¦¡ ...½Ð¨D¤j®v­Ì«ü±Ð
¸É¹s.rar (7.81 KB)

¦^´_ 1# qqchange
  1. Sub ªÅ¥Õ¸É0()
  2. Dim p, r
  3. For p = 1 To 3  'page
  4.     For r = 2 To 11 'row
  5.         '¨C13¦æ¬°¤@­Ó°Ï¶ô
  6.         With Sheets("RL").[a1:E13].Offset(13 * (p - 1)).Rows(r)
  7.             If .Cells(, 4).Value = "" Then .Cells(, 4).Value = 0  'R
  8.             If .Cells(, 5).Value = "" Then .Cells(, 5).Value = 0  'L
  9.             If .Cells(, 2).Value = "" Then .ClearContents   'µLName«h¸Ó¦æ²M°£
  10.         End With
  11.     Next
  12. Next
  13. End Sub
½Æ»s¥N½X

TOP

ÁÂÁÂstillfish00 ¤j¤j,¦ýOffset(13 * (p - 1))¤£¬O«ÜÀ´
½Ì¤p¤k¤l·M¶w¥i¥H¸ÑÄÀ²M·¡¤@ÂI¶Ü??

TOP

¦^´_ 3# qqchange
¨C13¦æ µø¬°¤@­¶
p=1®É²Ä1­¶ : [A1:E13].offset(13*0)  >> µ¥©ó[A1:E13]
p=2®É²Ä2­¶ : [A1:E13].offset(13*1)  >> µ¥©ó[A14:E26]
p=3®É²Ä3­¶ : [A1:E13].offset(13*2)  >> µ¥©ó[A27:E39]

TOP

·PÁÂstillfish00¤j¤j³o»ò¸Ô²Óªº¸Ñ»¡¡A¤p¤k¤l·P¿E¤£ºÉ

TOP

        ÀR«ä¦Û¦b : ÁÀ¨¥¹³¤@¦·²±¶}ªºÂAªá¡A¥~ªí¬üÄR¡A¥Í©Rµu¼È¡C
ªð¦^¦Cªí ¤W¤@¥DÃD