क्या आप नीचे दिए गए फॉर्मूले से मेरी मदद कर सकते हैं? यह ऑब्जेक्ट डिफाइन या ऐप डिफाइन्ड एरर देता है। बहुत बहुत धन्यवाद।

Sub cellstovalues()

    Sheets("Parsing").Select
    Columns("B:B").Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End Sub
0
Gonzalo 24 नवम्बर 2015, 14:15

2 जवाब

सबसे बढ़िया उत्तर

एक विकल्प के रूप में, आप बस रेंज की Value2 (या Value) मान निर्दिष्ट कर सकते हैं:

Sub cellstovalues()
    With Sheets("Parsing")
        With Intersect(.Range("B:B"), .UsedRange)
            .Value2 = .Value2
        End With
    End With
End Sub

या एक विशिष्ट सीमा के लिए:

Sub cellstovalues()
    With Sheets("Parsing").Range("B1:C10")
         .Value2 = .Value2
    End With
End Sub
0
Rory 24 नवम्बर 2015, 15:41

आपका कोड पूरे कॉलम B को चुनने से आपको समस्याएँ हो रही हैं। यह प्रयोग करके देखें। यह आपके कॉलम में अंतिम उपयोग किए गए सेल को ढूंढना चाहिए, फिर फॉर्मूलों को उन मूल्यों में बदलने के लिए कॉपी और पेस्ट करें जैसे आप चाहते हैं।

Sub cellstovalues()
    Dim ws As Worksheet
    Dim LastRow As Integer
    Dim rng As Range

    Set ws = ThisWorkbook.Sheets("Parsing")
    With ws
        LastRow = .Cells(.Rows.Count, "B").End(xlUp).Row
        Set rng = .Range(.Cells(1, "B"), .Cells(LastRow, "B"))
    End With
    rng.Copy
    rng.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End Sub
0
Tom 24 नवम्बर 2015, 11:25