مثلا
"arash"
لطفا راهنماییم کنید خیلی بهش نیاز دارم ممنونم
|
🖤 پیام تسلیتبا نهایت تأسف و تأثر، باخبر شدیم جناب آقای محمد محمدی با نام کاربری smartman ، از مدیران ارزشمند انجمن اکسل ایران، دار فانی را وداع گفتهاند. ایشان سالها با دانش، تجربه، اخلاق نیکو و روحیه کمک به دیگران، سهم بزرگی در رشد و پویایی انجمن داشتند و خاطره حضور ارزشمندشان همواره در ذهن اعضای انجمن باقی خواهد ماند. مدیریت و اعضای انجمن ExcelIran این ضایعه را به خانواده محترم ایشان، دوستان و تمامی اعضای انجمن تسلیت عرض نموده و از خداوند متعال برای آن مرحوم، رحمت و مغفرت الهی و برای بازماندگان صبر و شکیبایی مسئلت دارند.
انا لله و انا الیه راجعون
|
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
کامنت