返回列表 上一主題 發帖

[發問] [發問]判斷A儲存格後,B儲存格補零

[發問] [發問]判斷A儲存格後,B儲存格補零

請教大師們~
當NAME欄位是有資料,則R,L欄位補零
當NAME欄位是空值,則no欄位刪除資料
目前小女子只寫的出單一判斷式 ...請求大師們指教
補零.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.         '每13行為一個區塊
  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   '無Name則該行清除
  10.         End With
  11.     Next
  12. Next
  13. End Sub
複製代碼

TOP

謝謝stillfish00 大大,但Offset(13 * (p - 1))不是很懂
諒小女子愚鈍可以解釋清楚一點嗎??

TOP

回復 3# qqchange
每13行 視為一頁
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

感謝stillfish00大大這麼詳細的解說,小女子感激不盡

TOP

        靜思自在 : 【時間如鑽石】時間對一個有智慧的人而言,就如鑽石般珍貴;但對愚人來說,卻像是一把泥土,一點價值也沒有。
返回列表 上一主題