No More Excel Formulas Let AI Handle Your Spreadsheets

Excel Formulas Let AI

नमस्कार दोसोतो AI के इस दोर में Excel Formulas कितना आसान हो गया है ! अगर आप के पास कितना बड़ा से बड़ा कठिन काम हो आप चुटकियों में हल कर सकते है!

चाहे किसी भी Row में कुछ जोड़ना हो या हटाना हो सब कितना आसान है! जैसे मेरे पास ये एक Url है

No More Excel Formulas Let AI Handle Your Spreadsheets

का 306 का File है और में आगे से हटाना चाहता हूँ अगर में मैन्युअली करूँ तो एक से दो घंटा लगेगा लेकिन Chatgpt ने हमारा काम आसन करदिया आज हम इस पोस्ट यही जानेंगे ये होता कैसे है !

हम किया करेंगे ? आसान तरीका है जितना भी Url है सभी को कोपी करो और Chatgpt में डालदेंगे और बोलेंगे के ये मेरा url है और हम को इतना हिस्सा हटाना है हमको VBA Code लिखके दो Chatgpt हम को इस तरह का Codeलिखकर देगा

Set ws = ActiveSheet

' last used row in column A
lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row

' Late binding RegExp
Set re = CreateObject("VBScript.RegExp")
re.Pattern = "^(https?:\/\/)?(www\.)?shopseva\.in\/"   ' start पर domain match
re.IgnoreCase = True
re.Global = False

For i = 1 To lastRow
    inputStr = CStr(ws.Cells(i, "A").Value)
    If Len(Trim(inputStr)) > 0 Then
        outStr = re.Replace(inputStr, "")  ' prefix हट गया
        ws.Cells(i, "B").Value = outStr
    End If
Next i

MsgBox "Done — converted values are in Column B.", vbInformation

निचे वाला Code Disallow लगाने के लिए है

Set ws = ActiveSheet

' Last row nikalna
lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row

' Loop karte hue har row ke aage "Disallow: /" jodo
For i = 1 To lastRow
    If ws.Cells(i, 1).Value <> "" Then
        ws.Cells(i, 1).Value = "Disallow: /" & ws.Cells(i, 1).Value
    End If
Next i

MsgBox "'Disallow: /' sabhi rows ke aage add kar diya gaya.", vbInformation

End Sub

अब इस Code को किया करना है Excel Formulas का इस्तेमाल करना है Microsoft Excel Open करेंगे और Alt + F11 Press करेंगे Microsoft Visual Basic का window open होगा कुछ इस तह !