سلام
حتما برای ما پیش اوده که نیاز داریم کلماتی که در یک سلول درج شدند رو تفکیک کنیم مانند تفکیک نام و نام خانوادگی
ساده ترین راه استفاده از توابع هست اما در این بخش اگه نام و نا خانوادگی یا کلا هر جمله ای تعدادشون متناوب باشه باید برای هر تفکیک شدن یک فرمول نوشت که کار راحتی نیست
این کد زیر تمام کلماتی که با یک space از یک دیگر جدا شده باشن رو برای ما تفکیک میکنه حالا هر تعدادی باشه مهم نیست
کد:
Sub foo()
Dim varArr As Variant
Dim i As Long, strArr() As String
Application.ScreenUpdating = False
With Worksheets(1)
Let varArr = .Range(.Cells(1, 1), _
.Cells(.Rows.Count, 1).End(xlUp)).Value
If IsArray(varArr) Then
For i = LBound(varArr, 1) To UBound(varArr, 1)
Let strArr() = Split(varArr(i, 1))
Let .Cells(i, 2).Resize( _
, UBound(strArr) + 1).Value = strArr
Erase strArr
Next
Else: .Cells(1, 2).Resize(, 2).Value = Split(varArr)
End If
End With
Application.ScreenUpdating = True
End Sub
|
اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید. |
|
علاقه مندی ها (Bookmarks)