Hỏi cách tạo ma trận biến số (1 người xem)

[ltng82]

Mình có một bài tập là tạo một ma trận bằng cách hoán đổi các phần tử trên cùng một cột của một ma trận cho trước. Nhưng loay hoay mãi không biết bắt đầu như thế nào. Xin xem file đính kèm!
Mong mọi người giúp đỡ. Xin cảm ơn trước!

 

[ndu96081631]

Mình có một bài tập là tạo một ma trận bằng cách hoán đổi các phần tử trên cùng một cột của một ma trận cho trước. Nhưng loay hoay mãi không biết bắt đầu như thế nào. Xin xem file đính kèm!
Mong mọi người giúp đỡ. Xin cảm ơn trước!

Làm chơi thôi:

Sub Main()
  Dim i As Long, j As Long, s As Long
  Dim aSrc1, aSrc2, aSrc3, aSrc, Arr(1 To 81, 1 To 4)
  aSrc1 = Array(0.95, 1.9, 2.85, 3.8)
  aSrc2 = Array(1, 2, 3, 4)
  aSrc3 = Array(1.05, 2.1, 3.15, 4.2)
  aSrc = Array(aSrc1, aSrc2, aSrc3)
  For i = 1 To 81
    For j = 1 To 4
      s = Int((i - 1) / 3 ^ (4 - j)) Mod 3
      Arr(i, j) = aSrc(s)(j - 1)
    Next
  Next
  Range("B7").Resize(81, 4).Value = Arr
End Sub

Nếu viết ở mức tổng quát thì phải sửa lại rất nhiều

 

[huuthang_bd]

Mình có một bài tập là tạo một ma trận bằng cách hoán đổi các phần tử trên cùng một cột của một ma trận cho trước. Nhưng loay hoay mãi không biết bắt đầu như thế nào. Xin xem file đính kèm!
Mong mọi người giúp đỡ. Xin cảm ơn trước!

Box lập trình nhưng thử làm bằng công thức chơi.
Với Data là ma trận lúc đầu. Sử dụng công thức này cho ô đầu tiên của ma trận mới.

=INDEX(Data,MOD(ROUNDUP(ROW($A1)/ROWS(Data)^(COLUMNS(Data)-COLUMN(A$1)),0)-1,ROWS(Data))+1,COLUMN(A$1))

Sau đó copy ô này cho toàn ma trận.