سلام خدمت دوستان عزیز
لطفا فایل پیوست شده را ببنید
سوال من اینه که چطور میشه مقدار سلول a2 برابر مقادیر سطر اول باشه
ممنون
لطفا فایل پیوست شده را ببنید
سوال من اینه که چطور میشه مقدار سلول a2 برابر مقادیر سطر اول باشه
ممنون
=a1&c1&g1&h1&j1&m1&n1&o1&q1&s1
=a1&" "&c1&" "&g1&" "&h1&" "&j1&" "&m1&" "&n1&" "&o1&" "&q1&" "&s1
Function ConcatinateAllCellValuesInRange(sourceRange As Excel.Range) As String
Dim finalValue As String
Dim cell As Excel.Range
For Each cell In sourceRange.Cells
finalValue = finalValue + CStr(cell.Value)
Next cell
ConcatinateAllCellValuesInRange = finalValue
End Function
Sub test()
Dim xx
k1 = ActiveSheet.UsedRange.Columns(ActiveSheet.UsedRange.Columns.Count).Column
For I = 1 To k1
If Cells(1, I) <> "" Then
xx = xx & Cells(1, I)
End If
Next
Range("A2") = xx
End Sub
کامنت