返回列表 上一主題 發帖

[發問] 如何抽出不等於零的欄位表頭?

[發問] 如何抽出不等於零的欄位表頭?

如附檔,謝謝大大! Book3.rar (1.66 KB)

回復 1# winston219
  1. Sub Ex()
  2. Dim Ar()
  3. For Each a In Range([A1], [A1].End(xlToRight))
  4. If Application.Sum(a.EntireColumn) <> 0 Then
  5. ReDim Preserve Ar(s)
  6. Ar(s) = a
  7. s = s + 1
  8. End If
  9. Next
  10. Sheet2.[B1].Resize(, s) = Ar
  11. End Sub
複製代碼
學海無涯_不恥下問

TOP

感謝Hsieh大大!

TOP

請問為何執行後,偵錯到 Sheet2.[B1].Resize(, s) = Ar 這一行有問題?

TOP

回復 4# winston219
如果沒有符合條件的欄位
造成s=0時就會出錯
學海無涯_不恥下問

TOP

        靜思自在 : 【蒙蔽的自由】人常在什麼都可以自由自在的時候,卻被這種隨心所欲的自由蒙蔽,虛擲時光而毫無覺知。
返回列表 上一主題