Các câu hỏi về mảng trong VBA (Array)

[viehoai]

Xin các anh chị giúp đỡ Code Gán các giá trị của một Range là các phần tử của Mãng
Ví dụ: Tôi có các giá trị của Range("A1:A10"). Tôi muốn viết code để gán giá trị của các cells từ A1:A10 là các phần tử của Mãng Arr chẳn hạn.
Xin cảm ơn các anh chị

 

[Hoàng Nhật Phương]

Xin chào các bạn
Oanh Thơ đang sử dụng code sau để copy dữ liệu từ vùng "B799" của Sheet1
Sang vùng "E10" của sheet2:

Sub CopyData()
Sheets("Sheet1").Range("B7:D99").Copy
Sheets("Sheet2").Range("E10").PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
End Sub

Nhờ các bạn giúp đỡ cách viết khác sử dụng mảng ạ.

 

[Quang_Hải]

Xin chào các bạn
Oanh Thơ đang sử dụng code sau để copy dữ liệu từ vùng "B799" của Sheet1
Sang vùng "E10" của sheet2:

Sub CopyData()
Sheets("Sheet1").Range("B7:D99").Copy
Sheets("Sheet2").Range("E10").PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
End Sub

Nhờ các bạn giúp đỡ cách viết khác sử dụng mảng ạ.

Sub Doc_Ngang()
Dim sArr(), dArr(), i As Long, j&
sArr = Sheets("Sheet1").Range("B7:D99").Value
ReDim dArr(1 To UBound(sArr, 2), 1 To UBound(sArr))
For i = 1 To UBound(sArr)
   For j = 1 To UBound(sArr, 2)
      dArr(j, i) = sArr(i, j)
   Next
Next
Sheets("sheet2").[E10].Resize(UBound(dArr), UBound(dArr, 2)) = dArr
End Sub

 

[Kiều Mạnh]

Sub Doc_Ngang()
Dim sArr(), dArr(), i As Long, j&
sArr = Sheets("Sheet1").Range("B7:D99").Value
ReDim dArr(1 To UBound(sArr, 2), 1 To UBound(sArr))
For i = 1 To UBound(sArr)
   For j = 1 To UBound(sArr, 2)
      dArr(j, i) = sArr(i, j)
   Next
Next
Sheets("sheet2").[E10].Resize(UBound(dArr), UBound(dArr, 2)) = dArr
End Sub

Em mới thử làm đơn giản vầy nó cũng ra đó Anh

Sub TransposeArr()
    Dim Arr(), lRow As Long, lCols  As Long
    Arr = Range("B7:D99").Value
    lRow = UBound(Arr, 1)
    lCols = UBound(Arr, 2)
    Range("E10").Resize(lCols, lRow).Value = Application.WorksheetFunction.Transpose(Arr)
End Sub

 

[VetMini]

Em mới thử làm đơn giản vầy nó cũng ra đó Anh

Sub TransposeArr()
    Dim Arr(), lRow As Long, lCols  As Long
    Arr = Range("B7:D99").Value
    lRow = UBound(Arr, 1)
    lCols = UBound(Arr, 2)
    Range("E10").Resize(lCols, lRow).Value = Application.WorksheetFunction.Transpose(Arr)
End Sub

Hàm WorksheetFunction nó có giới hạn của nó:
1. Text chỉ được khoảng 255 ký tự
2. Chỉ được khoảng 500 dòng
Các con số trên, tôi có thể sai một chút. Nhưng chuyện giới hạn là chuyện thực tế.
Thử vài ô với text dài xem.

 

[Hoàng Nhật Phương]

Sub Doc_Ngang()
Dim sArr(), dArr(), i As Long, j&
sArr = Sheets("Sheet1").Range("B7:D99").Value
ReDim dArr(1 To UBound(sArr, 2), 1 To UBound(sArr))
For i = 1 To UBound(sArr)
   For j = 1 To UBound(sArr, 2)
      dArr(j, i) = sArr(i, j)
   Next
Next
Sheets("sheet2").[E10].Resize(UBound(dArr), UBound(dArr, 2)) = dArr
End Sub

Cảm ơn anh @quanghai1969 và các bạn đã hỗ trợ,
Nhờ các bạn giúp Oanh Thơ trường hợp đưa dữ liệu của vùng màu vàng trong cột C sang vùng màu vàng trong cột G, cũng sử dụng mảng với ạ:

 

[befaint]

đưa dữ liệu của vùng màu vàng trong cột C sang vùng màu vàng trong cột G, cũng sử dụng mảng

Bài này có nhiều rồi đó. Tìm mấy chủ đề về chèn dòng ấy...
Hình như có cả code tổng quát cho n dòng, rồi dùng 1 vòng lặp..

 

[snow25]

đưa vào như hình ở cột g hả bạn

 

[Hoàng Nhật Phương]

đưa vào như hình ở cột g hả bạn

Xin chao snow25,
Dạ, đúng như vậy đưa từ cột C sang cột G ạ.

 

[snow25]

đưa vào như hình ở cột g hả bạn

vậy bạn dùng vòng lặp là được mà.gán cái vùng ở cột c vào mảng rồi duyệt mảng chuyển qua mảng khác gắn vào cái cột G là được à

 

[Hoàng Nhật Phương]

vậy bạn dùng vòng lặp là được mà.gán cái vùng ở cột c vào mảng rồi duyệt mảng chuyển qua mảng khác gắn vào cái cột G là được à

Cảm ơn bạn đã gợi ý, theo gợi ý của bạn @befaint ,Oanh Thơ đang thử sửa theo code bài này của thầy @Ba Tê trong bài viết:
https://www.giaiphapexcel.com/diendan/threads/làm-sao-để-insert-dòng-trong-vba-nhỉ.764/#post-864043
hihi, đang lỗi tùm lum hết cả.

 

[snow25]

Cảm ơn bạn đã gợi ý, theo gợi ý của bạn @befaint ,Oanh Thơ đang thử sửa theo code bài này của thầy @Ba Tê trong bài viết:
https://www.giaiphapexcel.com/diendan/threads/làm-sao-để-insert-dòng-trong-vba-nhỉ.764/#post-864043
hihi, đang lỗi tùm lum hết cả.

đây bạn xem code này được không nhé

Sub chuyendulieu()
Dim arr, arr1
Dim i As Long, a As Long
arr = Sheet1.Range("c3:c7").Value
ReDim arr1(1 To UBound(arr, 1) * 5, 1 To 1)
a = 1
  For i = 1 To UBound(arr, 1)
      arr1(a, 1) = arr(i, 1)
      a = a + 5
  Next i
    Sheet1.Range("h3").Resize(a, 1).Value = arr1
End Sub

 

[Hoàng Nhật Phương]

đây bạn xem code này được không nhé

Sub chuyendulieu()
Dim arr, arr1
Dim i As Long, a As Long
arr = Sheet1.Range("c3:c7").Value
ReDim arr1(1 To UBound(arr, 1) * 5, 1 To 1)
a = 1
  For i = 1 To UBound(arr, 1)
      arr1(a, 1) = arr(i, 1)
      a = a + 5
  Next i
    Sheet1.Range("h3").Resize(a, 1).Value = arr1
End Sub

Cảm ơn bạn đã hỗ trợ, Oanh Thơ (OT) loay hoay mãi mà vẫn chưa ra.
Híc xem code của bạn không thấy dễ như Oanh nghĩ chút nào thì ra phải dùng ReDim và dùng 2 mảng mới xong.
Code của bạn chay đúng rồi, còn ô cuối cùng của trong cột G bị lỗi #NA ạ.

 

[snow25]

Cảm ơn bạn đã hỗ trợ, Oanh Thơ (OT) loay hoay mãi mà vẫn chưa ra.
Híc xem code của bạn không thấy dễ như Oanh nghĩ chút nào thì ra phải dùng ReDim và dùng 2 mảng mới xong.
Code của bạn chay đúng rồi, còn ô cuối cùng của trong cột G bị lỗi #NA ạ.

Cảm ơn bạn đã hỗ trợ, Oanh Thơ (OT) loay hoay mãi mà vẫn chưa ra.
Híc xem code của bạn không thấy dễ như Oanh nghĩ chút nào thì ra phải dùng ReDim và dùng 2 mảng mới xong.
Code của bạn chay đúng rồi, còn ô cuối cùng của trong cột G bị lỗi #NA ạ.

vậy bạn sửa cho Riseze là a-1 là được nhé

 

[VetMini]

Cảm ơn bạn đã hỗ trợ, Oanh Thơ (OT) loay hoay mãi mà vẫn chưa ra.
Híc xem code của bạn không thấy dễ như Oanh nghĩ chút nào thì ra phải dùng ReDim và dùng 2 mảng mới xong.
Code của bạn chay đúng rồi, còn ô cuối cùng của trong cột G bị lỗi #NA ạ.

Code trên đếm a dư 1.
Đếm như vầy mới đúng:
a = 0
For i = 1 To UBound(arr, 1)
a = a + 1
arr1(a, 1) = arr(i, 1)
a = a + 4
Next i
Nhưng mà nó luộm thuộm lắm. Tính luôn chỉ số cho nó gọn:
For i = 1 To UBound(arr1, 1) Step
arr1((i - 1) * 5 + 1, 1) = arr(i, 1)
Next i

 

[Hoàng Nhật Phương]

Xin chào các bạn,
Oanh Thơ sử dụng code của snow25, để chuyển dữ liệu từ cột C sang cột K:L
Cách chuyển cứ mỗi 1 dòng tại cột C thì tạo thành 5 dòng liên tục giống nhau tại cột K:L như ảnh kèm.

Sub Chuyen_DL()
    Dim i As Long, j As Long, a As Long, LastRow As Long
    Dim sh As Worksheet, arr As Variant, arr1 As Variant
    Set sh = ThisWorkbook.Worksheets("Sheet1")
    LastRow = sh.Cells(sh.Rows.Count, "C").End(xlUp).Row
    arr = sh.Range("C1:D" & LastRow).Value
    ReDim arr1(1 To UBound(arr, 1) * 5, 1 To 2)
    a = 0
    For i = 1 To UBound(arr, 1)
        a = a + 1
        arr1(a, 1) = arr(i, 1): arr1(a, 2) = arr(i, 2)
        a = a + 4
    Next i
    With sh.Range("K1").Resize(a, 2)
        .Value = arr1
        .SpecialCells(xlCellTypeBlanks).Value = "=R[-1]C"
        .Value = .Value
    End With
End Sub

Hiện tại 2 dòng:

.SpecialCells(xlCellTypeBlanks).Value = "=R[-1]C"
.Value = .Value

đang làm việc với Range, nhờ các bạn chuyển giúp sang cách dùng mảng ạ

 

[befaint]

Cách chuyển cứ mỗi 1 dòng tại cột C thì tạo thành 5 dòng liên tục giống nhau tại cột K:L như ảnh kèm.

Cuối cùng cũng lòi cái đuôi ra. Đã bảo có chủ đề như này rồi. Có cả phương án code và công thức rồi sort.

 

[Hoàng Nhật Phương]

Cuối cùng cũng lòi cái đuôi ra. Đã bảo có chủ đề như này rồi. Có cả phương án code và công thức rồi sort.

hihi, khổ ghê OT cũng tìm rồi đó mà.
híc OT sẽ tìm tiếp và nghĩ tiếp ạ. @befaint biết link rồi thì trích cho OT tham khảo với.
Còn code trên cũng xài OK rồi nhưng OT muốn học và dùng mảng ạ.

 

[Quang_Hải]

Sub Chuyen_DL()
Dim Arr1(), Arr2(), i&, j&, a&, n&
With Sheets("Sheet1")
   Arr1 = .Range("C1", .[D65536].End(3)).Value
    ReDim Arr2(1 To UBound(Arr1, 1) * 5, 1 To UBound(Arr1, 2))
    For i = 1 To UBound(Arr1, 1)
      For n = 0 To 4
         For j = 1 To UBound(Arr1, 2)
            Arr2(a + n + 1, j) = Arr1(i, j)
         Next
      Next
      a = a + 5
    Next i
   .[K1].Resize(UBound(Arr2), UBound(Arr2, 2)) = Arr2
End With
End Sub

 

[Kiều Mạnh]

Hàm WorksheetFunction nó có giới hạn của nó:
1. Text chỉ được khoảng 255 ký tự
2. Chỉ được khoảng 500 dòng
Các con số trên, tôi có thể sai một chút. Nhưng chuyện giới hạn là chuyện thực tế.
Thử vài ô với text dài xem.

Nếu dữ liệu 65536 dòng x 20 cột mà xài WorksheetFunction thì có mà tèo téo teo...

Cho vô mảng chạy 2 dòng For cho nó đẹp code nó bay cái Vèo

 

[befaint]

For i = 1 To UBound(Arr1, 1)
For n = 0 To 4

Chỗ này em nhớ có một bác nói là dùng một vòng lặp thôi..