|
🖤 پیام تسلیتبا نهایت تأسف و تأثر، باخبر شدیم جناب آقای محمد محمدی با نام کاربری smartman ، از مدیران ارزشمند انجمن اکسل ایران، دار فانی را وداع گفتهاند. ایشان سالها با دانش، تجربه، اخلاق نیکو و روحیه کمک به دیگران، سهم بزرگی در رشد و پویایی انجمن داشتند و خاطره حضور ارزشمندشان همواره در ذهن اعضای انجمن باقی خواهد ماند. مدیریت و اعضای انجمن ExcelIran این ضایعه را به خانواده محترم ایشان، دوستان و تمامی اعضای انجمن تسلیت عرض نموده و از خداوند متعال برای آن مرحوم، رحمت و مغفرت الهی و برای بازماندگان صبر و شکیبایی مسئلت دارند.
انا لله و انا الیه راجعون
|
Sub Macro1()
For i = 3 To 7
last = Sheet1.Range("A2").End(xlToRight).Column
If Cells(i, last) <> "" Then
q = last - 1
Else
q = Sheet1.Cells(i, last).End(xlToLeft).Column - 1
End If
w = q / 4
Sheet1.Range(Cells(i, q - 2), Cells(i, q + 1)).Copy
Sheet2.Cells(i, 2).PasteSpecial Paste:=xlPasteValues
Sheet2.Cells(i, 6) = w
Next i
End Sub
Sub Macro1()
Dim z(3) As Variant
For i = 3 To 7
last = Sheet1.Range("A2").End(xlToRight).Column
If Cells(i, last) <> "" Then
q = last - 1
Else
q = Sheet1.Cells(i, last).End(xlToLeft).Column - 1
End If
w = q / 4
For j = 0 To 3
z(j) = Cells(i, q - 2 + j)
Sheet2.Cells(i, j + 2) = z(j)
Next
Sheet2.Cells(i, 6) = w
Next i
End Sub
کامنت