اعداد من در اكسل به اين صورت هستن
6700001
6700002
6700003
و الي آخر
چطور ميتونم عدد 670000 كه تو همشون هست رو از اولش حذف كنم و داده هام به اين صورت بشه :
1
2
3
|
🖤 پیام تسلیتبا نهایت تأسف و تأثر، باخبر شدیم جناب آقای محمد محمدی با نام کاربری smartman ، از مدیران ارزشمند انجمن اکسل ایران، دار فانی را وداع گفتهاند. ایشان سالها با دانش، تجربه، اخلاق نیکو و روحیه کمک به دیگران، سهم بزرگی در رشد و پویایی انجمن داشتند و خاطره حضور ارزشمندشان همواره در ذهن اعضای انجمن باقی خواهد ماند. مدیریت و اعضای انجمن ExcelIran این ضایعه را به خانواده محترم ایشان، دوستان و تمامی اعضای انجمن تسلیت عرض نموده و از خداوند متعال برای آن مرحوم، رحمت و مغفرت الهی و برای بازماندگان صبر و شکیبایی مسئلت دارند.
انا لله و انا الیه راجعون
|
Sub test()
Dim CorrectedText, OriginalText As Double
Z = Sheet1.Cells(Sheet1.Rows.Count, "A").End(xlUp).Row
For i = 1 To Z
If Left(Range("A" & i), 2) = "67" Then
OriginalText = Range("A" & i).Value
CorrectedText = Replace(OriginalText, "67", "", 1, 1)
Range("b" & i).Value = CorrectedText
End If
Next i
End Sub
=left(A1,3)
کامنت