Excel VBAマクロでは、多数の列をどのように反復処理できますか？

Question

I持つ列上のすべてのxを置き換える、次のExcelシートやVBAマクロ、AY、AZ、細胞AY1、AZ1、BA1の値でBA：あなたのよう

私のスクリプトには列名が固定されています。私は多くの列（約300）を持っています。スクリプトが自動的に列インデックスを1 /反復数だけ多くの列にわたって増やすことができますか？

Answer 1

このような何か試してみてください：

Sub ReplaceValues() 

Dim myRng, myColumn As Range 

Set myRng = Range("A:C").Columns ' <- this is you range, change A:C as needed 

For Each myColumn In myRng '<- this will loop through each column in your range 

    myColumn.EntireColumn.Replace What:="x", Replacement:=Cells(1, myColumn.Column).Text, LookAt:=xlWhole, _ 
     SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ 
     ReplaceFormat:=False 
Next 

End Sub 

Answer 2

を私はまたfinaly自分で、他の加工方法を見つけました：

Dim col As Integer 

For col = 8 To 300 
    Columns(col).Replace What:="x", Replacement:=Cells(1, col).Text, LookAt:=xlWhole, _ 
     SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ 
     ReplaceFormat:=False 
Next