Excel中将数据替换为固定字符串

 

Sub 替换()

    Set sourceSht = ThisWorkbook.Sheets("sheet1")
    Dim hang, lie As Integer
    Dim str1, str2, str3, str4, str5, str6, str7, str8, str9 As String
    str1 = "[0 - 100]"
    str2 = "[100 - 200]"
    str3 = "[200 - 300]"
    str4 = "[300 - 400]"
    str5 = "[400 - 500]]"
    str6 = "[500 - 600"
    str7 = "[600 - 700]"
    str8 = "[700 - 800]"
    str9 = "[800 - 900]"
    str10 = "[900 - 1000]"
    
    'k = sourceSht.[a65535].End(xlUp).Row
    hang = Sheets("sheet1").[a65535].End(xlUp).Row
    'lie = Sheets("sheet1").[BF1].End(xlToLeft).Column
  
   For m = 4 To hang Step 1

        For n = 65 To 65 Step 1
        
            s = Cells(m, n).Value