سلام خدمت دوستان عزیز
لطفا فایل پیوست شده را ببنید
سوال من اینه که چطور میشه مقدار سلول 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
کامنت