Kopieren von Spalten und einfügen nur Formeln - nicht Werten

Ich versuche, kopieren Sie eine Spalte auf der rechten Seite der Tabelle, und fügen die Formeln (nicht die Werte).

Sub acrescentaCols()
Dim oSheet As Worksheet

Set oSheet = Sheets("Sheet1")
oSheet.Columns("D:D").Select
    Selection.Copy
    Range(Selection, Selection.End(xlToRight)).Select
    Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
End Sub

Aber dies ist das kopieren auch die Werte (weil Excel Auffassung-Werte eine Formel zu).

Wie kann ich dieses Problem beheben?

Die .Formula Eigenschaft kann mit oder ohne =. Die values Sie sich beziehen, sind Formeln ohne =.
Ja, das macht Sinn. aber wie ist der code? Ich kann nicht entfernen = wihout immer ein Fehler
verwenden Sie eine if-Anweisung, um zu sehen, ob zuerst die linke Seite charactier der Formel ist '=' fügen Sie andere ignorieren. Sie benötigen zu Durchlaufen. Aber verwenden Sie nicht das copy paste weisen die Formel statt, es wird schneller.

InformationsquelleAutor Nuno Nogueira | 2015-11-06

0

Als pro meine Kommentare früher:
```
Sub acrescentaCols()
Dim oSheet As Worksheet
Dim rng As Range
Dim cel As Range
Set oSheet = Sheets("Sheet1")
With oSheet
    Set rng = .Range(.Range("D1"), .Range("D" & .Rows.Count).End(xlUp))
    For Each cel In rng
        If Left(cel.Formula, 1) = "=" Then
            Range(cel.Offset(, 1), cel.Offset(, 1).End(xlToRight)).Formular1c1 = cel.Formular1c1
        End If
    Next cel
End With
End Sub
```
- Passt es nicht, wenn es leere Zellen dazwischen, während die header-Zeilen sind nicht leer.
- Ich bin mir nicht sicher, was Sie sagen. Es geht um die Unterseite des Blattes und geht bis zum ersten besetzten Zelle iteriert dann über alle von der ersten bis zur letzten besetzten Zelle ob leer oder nicht in Spalte D. ich habe einen Fehler, dein Kommentar hat mich finden.
- Ich denke, es funktioniert. Aber, mit viel Wiederholung. Ich denke, es ist einfacher, um den Bereich zu definieren, und überprüfen Sie, ob jede Zelle HasFormula
- Der einzige Weg, dies zu tun ist durch iteration, könnten Sie finden, aber Sie müssen dann zu tun, ein do Schleife springen von einem zum nächsten, insgesamt sind es weniger iteration, aber Sie laufen Gefahr, dass ein "=" innerhalb einer Zeichenfolge, die abgeholt werden, auch. Zumindest mit meinem knowledge base ist dies der beste Weg.
- Wenn es für Sie gearbeitet, dann markieren Sie bitte richtige.
- r1 (header): a | b | c | d | e r2 (Daten): =1 | 1 | 1 | (leer) | 1 werden nur gefüllt, um die Spalte "c", obwohl von OP-code, es würde füllen Sie bis zu "e".
- Ich denke, dass ich sehe, was Sie sagen,, dass ich müssen, finden Sie am Ende der Spalte überschriften und stoppen. Das problem ist Sie sind, vorausgesetzt, es gibt den Header. Nein, wo in den OP ' s Beispiel oder eine Erklärung nicht, er Stand, er hat Kopfzeilen, oder dass es etwas gibt, in die Zellen rechts von D. ich kann sehen, wo er ist, nur mit den Formeln legen es alle auf einmal und füllen Sie die Spalte Daten, die er braucht. Wenn @NunoNogueira will kann ich leicht finden Sie am Ende der Header in Zeile 1 und setzen Sie den erhaltenen des rechts zu füllen, die.
InformationsquelleAutor Scott Craner
1

Den unten beheben sollten Ihre unmittelbare problem, nur das kopieren der Formeln über-und nicht die Werte, aber ich bin mir nicht sicher, was genau Sie zu tun versuchen. Wenn man mehr Informationen, die ich bin sicher, ich kann helfen, Sie erreichen, was Sie versuchen zu erreichen.

Es scheint, als ob Sie möchten, kopieren Sie die Formeln nach jeder Zeile auf der rechten Seite der Spalte D auf der sehr rechten Rand des Arbeitsblattes?

Es auch scheint, wie Sie möchten, kopieren Sie die Formeln nur so, dass Sie neu zu bewerten, in Ihre neue Lage - oder wollen Sie die Werte der Vergangenheit nur so zu halten, dass Sie die gleichen Werte, die Sie ausgewertet, auf die in der Spalte D?

Sowieso, geben diesem einen Wirbel.
```
Sub acrescentaCols()
Dim oSheet As Worksheet

Set oSheet = Sheets("Sheet1")

For Each cell In oSheet.Range("D1", Range("D1").End(xlDown))
    If cell.HasFormula = True Then
        cell.Copy
        Range(cell.Address, Range(cell.Address).End(xlToRight)).PasteSpecial Paste:=xlPasteFormulas
    End If
Next cell

End Sub
```
InformationsquelleAutor Harley B
0

Wenn Sie sagen, fügen Sie die Formel nur - die Methode zum einfügen der Formel und dann neu berechnen und die Formel zeigen das Ergebnis. Ich denke, eine bessere Möglichkeit, dass zu schreiben wäre:
```
Sub acrescentaCols()

    Dim oSheet As Worksheet
    Dim rCopied As Range

    Set oSheet = Sheets("Sheet1")

    With oSheet
        .Columns("D:D").Copy

        Set rCopied = .Cells(1, 4).End(xlToRight).Offset(, 1).EntireColumn
        rCopied.PasteSpecial Paste:=xlPasteFormulas

    End With

End Sub
```
Wenn Sie wollen, um zu zeigen, die eigentliche Formel könnte man eine UDF etwas wie:
```
Function GetFormula(Target As Range) As String
    If Target.HasFormula Then
        GetFormula = Target.Formula
    End If
End Function
```
Wenn Sie sich bewerben möchten diese auf eine ganze Spalte, die Sie verwenden könnten:
```
Sub acrescentaCols1()

    Dim oSheet As Worksheet
    Dim rCopied As Range

    Set oSheet = Sheets("Sheet1")

    With oSheet
        Set rCopied = .Cells(1, 4).End(xlToRight).Offset(, 1).EntireColumn
        rCopied.FormulaR1C1 = "=GETFORMULA(RC4)"
    End With

End Sub
```
Diese wird wahrscheinlich töten Sie Ihre Tabellenkalkulation, obwohl - es wird das ausführen der UDF auf alle Zeilen.
- For Each Cell in rCopied | Cell.FormulaR1C1 = GetFormulaR1C1(RC4) | Next Cell und ändern Sie es zu GetFormulaR1C1 = Target.FormulaR1C1 plus einrichten einer InStr(Target.FormulaR1C1,"=")>0 Kriterium.
- Ich würde Sie Ziel.HasFormula, anstatt suchen ein ist-gleich-Zeichen - Hello, A = B enthält ein Gleichheitszeichen, aber nicht die Formel.
- Muss ich copy-paste die Formeln nur. Zum Beispiel, in Zelle D5 habe ich die Zahl 25, das möchte ich nicht kopieren und einfügen, weil es eine Zahl ist
- Kopieren und einfügen der Formel als Formel - so wird es berechnet und zeigt das Ergebnis, oder copy-paste die Formel als text, der - so zeigt die Formel und nicht das Ergebnis. z.B. =1+1 willst du es anzeigen =1+1 oder 2?
InformationsquelleAutor Darren Bartrup-Cook

Sub acrescentaCols()
    Dim oSheet As Worksheet, rng1 As Range, rng2 As Range, rng As Range

    Set oSheet = Sheets("Sheet1")
    Set rng1 = oSheet.Columns("D:D")
        Set rng1 = Intersect(rng1, rng1.Worksheet.UsedRange) 'for the used range only
    Set rng2 = Range(rng1, rng1.End(xlToRight))
    For i = 1 To rng1.Cells.Count 'for each row
        If Left(rng1(i, 1).Formula, 1) = "=" Then 'if it starts with an equal sign
            For j = 1 To rng2.Columns.Count 'then for each column in the copy
                rng2(i, j).FormulaR1C1 = rng1(i, 1).FormulaR1C1
            Next j
        End If
    Next i
End Sub

InformationsquelleAutor user3819867

Schreibe einen Kommentar

Du musst angemeldet sein, um einen Kommentar abzugeben.