[حل شده] انتخاب یک ستون

[amir0914]

سلام. دوستان یک کد 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

[amir_ts]

با سلام
با قرار دادن +1 به کد زیر مشکل حل میشه
Set cr = ac.Offset(0, 0).Resize(lc.Row + 1 - ac.Row, 1)
ضمنا برای انتخاب محتویات یک ستون بدون انتخاب سل های خالی میتونید از کد زیر استفاده کنید.

[LEFT]
Sub select_col()
ActiveSheet.Columns("A:A").SpecialCells(xlCellTypeConstants, 23).Select
End Sub
[/LEFT]