VBA: Zellen beginnend mit "=" verursacht Probleme in meinem Move-Makro

Question

Ich habe derzeit einige Code, der Zellen nicht in der ersten Spalte findet und verschiebt sie. Ich habe ein Problem mit Zellen, die mit "=" beginnen. Können Sie sich an irgendwelche Lösungen erinnern, um dieses Problem zu lösen? Danke im Voraus.

Sub Move() 

Dim cel As Range, rng As Range 
Dim wk As Worksheet 

Set wk = ActiveWorkbook.ActiveSheet 
Set rng = wk.UsedRange 

For Each cel In rng 
    If cel.Value <> "" And cel.Column <> 1 Then 
     wk.Cells(cel.Row, 1) = cel.Value 
     cel.Value = "" 
    End If 
Next cel 
End Sub 

Answer 1

Entweder jedes Mal in Ihrer Für jede Schleife

If Cstr(cel.Value) <> "" And ... 'you need to do that for every cel.Value occurencies 

oder eine Variable zu Beginn erklären

Dim StringInCell as String 
For Each cel In rng 
StringInCell=Cstr(cel.Value) 
    If StringInCell... 

Sie .Text Eigenschaft versuchen können auch (obwohl ich nicht haben hatte Glück, das jemals zu benutzen, ich lieber CStr).
Dies kann auch funktionieren, wenn die analysierten Daten einen Ausnahmefehler oder etwas wirft:

... 
wk.Cells(cel.Row, 1).NumberFormat = "@" 
wk.Cells(cel.Row, 1) = Cstr(cel.Value) 'related to the option chosen from above 

Answer 2

Wenn Sie Zellen haben, die mit =, beginnen aber als Formeln behandelt werden, nicht werden, sondern vielmehr als Text, dann mit Sgdva ‚s alternative Vorschlag:

Sub Move() 

Dim cel As Range, rng As Range 
Dim wk As Worksheet 

Set wk = ActiveWorkbook.ActiveSheet 
Set rng = wk.UsedRange 

For Each cel In rng 
    If cel.Text <> "" And cel.Column <> 1 Then 
     wk.Cells(cel.Row, 1) = cel.Text 
     cel.Value = "" 
    End If 
Next cel 
End Sub 

EDIT # 1:

Diese Version es zur Spalte "de-formularise" eine Zelle sollte bevor:

Sub Move2() 
    Dim cel As Range, rng As Range 
    Dim wk As Worksheet, s As String 

    Set wk = ActiveWorkbook.ActiveSheet 
    Set rng = wk.UsedRange 

    For Each cel In rng 
     s = cel.Text 
     If s <> "" And cel.Column <> 1 Then 
      wk.Cells(cel.Row, 1).Value = s 
      cel.Value = "" 
     End If 
    Next cel 
End Sub 

Answer 3

dieses

Versuchen

Sub Move() 

    Dim cel As Range, rng As Range 
    Dim wk As Worksheet 

    Set wk = ActiveWorkbook.ActiveSheet 
    Set rng = wk.UsedRange 

    For Each cel In rng 

     If cel.HasFormula Then 
      wk.Cells(cel.Row, 1).Formula = cel.Formula 
      cel.ClearContents 
     Else 
      If cel.Value <> "" And cel.Column <> 1 Then 
       With wk.Cells(cel.Row, 1) 
        .NumberFormat = "@" '<<edit: added formatting 
        .Value = cel.Value 
       End with 
       cel.Value = "" 
      End If 
     End If 
    Next cel 

End Sub