ExcelのVBAを使用して列の値を別の値に置き換えますか？

Question

私は約3,000行のワークシートを持っています。例えば、これらの列の一つは、民族データが含まれていますが、それは数値形式であり、むしろテキスト形式より：

• 1 =アメリカン・インディアンまたはアラスカネイティブ
• 2 =アジア、アジア系アメリカ人、または太平洋諸島
• 3 =アフリカ系アメリカ人や黒人
• 4 =メキシコまたはメキシコ系アメリカ人

私はこの中で値をスワップアウトするためのSelect Case（または...？）を使用してVBAでモジュールを書きたいのですが整数からテキストへの列。誰かがこれを達成する方法を私に見せてもらえますか？

Answer 1

HERESに迅速VBAのマッシュアップ：

Option Explicit 
Option Base 1 

Public Sub ReplaceData() 

    Dim RangeCells As Range 

    Dim LookupArray(4) As String, RangeCell As Range 

    LookupArray(1) = "Test A" 
    LookupArray(2) = "Test B" 
    LookupArray(3) = "Test C" 
    LookupArray(4) = "Test D" 

    For Each RangeCell In Selection 

     If IsNumeric(RangeCell.Value) And RangeCell.Value <= UBound(LookupArray) And RangeCell.Value >= LBound(LookupArray) Then 
      RangeCell.Value = LookupArray(Val(RangeCell.Value)) 
     End If 

    Next RangeCell 

End Sub 

仮定：すべての可能なセルの値が配列インデックスに覆われています。それ以外の場合は、おそらく切り替えたいものです。あなたはそれに切り替える方法を理解できない場合私に教えてください。

これがあなたの問題を解決することを願っています。

Answer 2

Excelで非VBA（私の考えではもっと単純です）アプローチは、そのデータを持つルックアップテーブルを作成することです - 最初の列の整数、2番目の列のテキスト、次に隣の列VLOOKUPを使用して対応するテキストを検索します。代替を使用して現在の選択値を置き換えます

Answer 3

VLOOKUPような何かをしていますが、

Option Explicit 
Sub ReplaceData() 

Dim i As Integer 
Dim ABCArray() As Variant, DEFArray As Variant 

    ABCArray = Array("A", "b", "C") 
    DEFArray = Array("D", "E", "F") 

    With ActiveSheet.Range("A:A") 

     For i = LBound(ABCArray) To UBound(ABCArray) 

      .Replace What:=ABCArray(i), _ 
      Replacement:=DEFArray(i), _ 
      LookAt:=xlWhole, _ 
      SearchOrder:=xlByColumns, _ 
      MatchCase:=False 

     Next i 

    End With 
End Sub 

下に試すことができ、交換して、私はVLOOKUPは1つの単純な理由のためのより良いことに同意することはできません。私たちは、繰り返しのアクションを自動化するマクロを実行すると、私は、誰かが見ていると仮定マクロソリューションの場合は、そのような場合がほとんどです。