سلام دوستان من یک سری محتویات متنی توی سلول هام دارم که میخوام به ابتدا و انتهای آن ها دابل کوتیشن اضافه کنم
مثلا
"arash"
لطفا راهنماییم کنید خیلی بهش نیاز دارم ممنونم
مثلا
"arash"
لطفا راهنماییم کنید خیلی بهش نیاز دارم ممنونم
Sub test()
Dim i As Long
For i = 1 To 100000
If Cells(i, 1).Value = "" And Cells(i + 1, 1).Value = "" Then
Exit For
End If
If Right(Cells(i, 1), 1) = """" Or Cells(i, 1).Value = "" Then
Else
Cells(i, 1).Value = """" & Cells(i, 1).Value & """"
End If
Next i
End Sub
کامنت