سلام. دوستان یک کد vba از سایت خارجی گرفتم که برای انتخاب محتویات یک ستون است. اما مشکل اینجاس که سلول آخری رو انتخاب نمیکنه. ممنون میشم دوستان کمکم کنن.
کد:
Sub Button3_Click()Dim ac As Range
Dim ws As Worksheet
Dim lRow As Long
Dim lc As Range
Dim col As Integer
Dim cr As Range
Set ac = ActiveCell
col = ac.Column
lRow = ActiveSheet.Rows.Count
Set lc = Cells(lRow, col)
Set lc = lc.End(xlUp)
lRow = lc.Row
Set cr = ac.Offset(0, 0).Resize(lc.Row - ac.Row, 1)
cr.Select
End Sub
|
اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید. |
|
علاقه مندی ها (Bookmarks)