すべてのセルでテキストを変更する機能

Question

Xと、11より大きいテキスト長のセルをスキャンしたいと思っています。ユーザーに変更を求めるメッセージボックスが表示されます。ユーザーがOKボタンを押すと、X列の値をすべて置き換えます。これは構文ですが、各セルを反復しているわけではありません。新しい名前変更値を入力すると、マクロは依頼を続けますが、列Xの下でセルを反復処理しないように見えます。

私が望むようにこのマクロ機能を使用するには、何を変更する必要がありますか？

Function ShortenText() 
Dim c As Range 
Dim lRow As Long 
Dim NewValue As String 

    lRow = Cells(Rows.Count, 24).End(xlUp).Row 

    For Each c In Range("X1:X" & lRow) 
     Cells(c.Row, 2) = Len(c) 
     If Len(c) > 11 Then 
      NewValue = Trim(InputBox("What would you like to rename the value") 
      Selection.Replace What:=c.Value, Replacement:=NewValue, LookAt:=xlPart, _ 
      SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False 
     End If 
    Next c 

End Function 

Answer 1

私はあなたのコードを試しました。

Function ShortenText() 
Dim c As Range 
Dim lRow As Long 
Dim NewValue As String 

    lRow = Cells(Rows.Count, 24).End(xlUp).Row 

    For Each c In Range("X1:X" & lRow) 
     Cells(c.Row, 2) = Len(c) 
     If Len(c) > 11 Then 
      NewValue = Trim(InputBox("What would you like to rename the value")) 
      c.Select 
      Selection.Replace What:=c.Value, Replacement:=NewValue, LookAt:=xlPart, _ 
      SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False 
     End If 
    Next c 

End Function 

"c.Select"を追加して、トリム機能 "）"を追加します。