Nhờ chỉnh sửa code VBA (1 người xem)

[swalowbird]

vì vùng chọn của em là không cố định , lúc là B2:B100 , lúc là F24:F45 vvvvvvv
Tại sao em không thể gán mảng sArr () với m như trên , có cash nào giải quết được khổng ?

Các bác sửa giúp em với . thanks !!!
Option Explicit


Dim rng As Range
Set rng = Selection

Const m As Integer = [rng].Columns.Count

Dim sArr(), dArr(1 To 10000, m), i As Long, J As Long, K As Long, Tem, Hic As String

sArr = [rng].Value

 

[Let'GâuGâu]

vì vùng chọn của em là không cố định , lúc là B2:B100 , lúc là F24:F45 vvvvvvv
Tại sao em không thể gán mảng sArr () với m như trên , có cash nào giải quết được khổng ?

Các bác sửa giúp em với . thanks !!!
Option Explicit


Dim rng As Range
Set rng = Selection

Const m As Integer = [rng].Columns.Count

Dim sArr(), dArr(1 To 10000, m), i As Long, J As Long, K As Long, Tem, Hic As String

sArr = [rng].Value

sao bạn không viết vậy cho nó lành

Dim sArr(), dArr(), i As Long, J As Long, K As Long, Tem, Hic As String
Dim rng As Range
Set rng = Selection

sArr = [rng].Value
ReDim dArr(1 To 6000, 1 To UBound(sArr, 2))