[發問] 請問各位前輩關於VBA 陣列取代問題

ii31sakura

不好意思、請問一下各位前輩們~小弟的附件中有兩個分頁、一個是Data、一個是轉換頁，
請問如果小弟想要將Data中各欄位下方有數值的欄位皆取代成數值"1"，
如現在轉換頁所顯示的情況、請問小弟該如何使用陣列改寫呢？？

再請麻煩幫忙前輩指導一下、謝謝~


array test1.rar (14.3 KB)

下載次數: 6

2014-6-13 15:59

stillfish00

回復 1# ii31sakura
Sub Test()
  With Sheets("Data").[A1].CurrentRegion
    .Offset(1, 1).Resize(.Rows.Count - 1, .Columns.Count - 1).SpecialCells(xlCellTypeConstants, xlNumbers).Value = 1
  End With
End Sub

GBKEE

回復 2# stillfish00
可簡化

1. Sub Test()
   
2.   With Sheets("Data").[A1].CurrentRegion
   
3.     .Offset(1, 1).SpecialCells(xlCellTypeConstants, xlNumbers).Value = 1
   
4.   End With
   
5. End Sub

複製代碼

ii31sakura

回復 3# GBKEE


    感謝stillfish00與GBKEE前輩的指導、兩位的方法對小弟來說都是有用的，
    我會好好的學習、感謝兩位前輩~

stillfish00

回復 3# GBKEE
也對，謝謝提醒。