Thêm k cột(hàng) vào các cột(hàng) định trước

[quocturtle]

Xin chào anh chị em trên diễn đàn, mình có vấn đề về chèn cột(hàng) và mong mọi người giúp đỡ code VBA.

Giả sử mình muốn thếm k cột(hàng) vào các cột(hàng) thỏa mãn công thức sau: y= 3x+1
Trong đó x chạy từ [1..n]. Và y là cột(hàng) sẽ được thêm vào k cột(hàng) .
Dữ liệu nhập là: k & n & công thức y=3x+1 (công thức này chỉ là ví dụ, tùy trường hợp mà mình sẽ tạo công thức khác nhau, nhưng nói chung công thức không quá phức tạp)

VD với cột: k=2, n=3
x=1 -> y=4 -> thêm 2 cột vào bên phải cột thứ 4 (tức là cột D)
..
x=3 -> y=10 -> thêm 2 cột vào bên phải cột thứ 10 (tức là cột J)

Mong mọi người giúp đỡ,

Bổ sung:
Mình làm thêm 1 ví dụ khác trong file Excel đính kèm, mọi người xem để dễ hình dung.

 

[SA_DQ]

Các cách thêm dòng bạn có thể tham khảo tại đây: http://www.danketoan.com/forum/exce...oi-vo-1-csdl-co-so-du-lieu-da-san.182915.html

Thú thực là mình chưa tường minh cho lắm khi đọc bài của bạn.

 

[quocturtle]

Các cách thêm dòng bạn có thể tham khảo tại đây: http://www.danketoan.com/forum/exce...oi-vo-1-csdl-co-so-du-lieu-da-san.182915.html

Thú thực là mình chưa tường minh cho lắm khi đọc bài của bạn.

Cám ơn bạn, mình đã bổ sung thêm 1 ví dụ khác bằng file Excel cho dễ hình dung. Có gì bạn xem giúp.
P/S: forum bên kia phần VBA khác với nhu cầu của mình, Nhưng mình cũng tham khảo xem coi có thể giúp ích gì cho vấn đề mình không.

 

[ChanhTQ@]

Macro của bạn đây

Option Explicit
Sub ThemCot()
 Dim Nn As Long, Kk As Long, J As Long
 Const aA As Integer = 2
 Const Bb As Integer = 1
 
 Kk = InputBox("Hãy Nhap Só Cot Càn Them:", "GPE.COM Xin Chào", 2)
 Nn = InputBox("Hãy Nhap Giá Tri Cuc Dai Cua N:", "GPE.COM", 3)
 For J = Nn To 1 Step -1
    Cells(1, aA * J + Bb).Interior.ColorIndex = 40 - J
    Cells(1, aA * J + Bb).Resize(, Kk).EntireColumn.Insert
 Next J
End Sub

/(/hững mong là khỏi gởi file lên!

 

[quocturtle]

Option Explicit
Sub ThemCot()
 Dim Nn As Long, Kk As Long, J As Long
 Const aA As Integer = 2
 Const Bb As Integer = 1
 
 Kk = InputBox("Hãy Nhap Só Cot Càn Them:", "GPE.COM Xin Chào", 2)
 Nn = InputBox("Hãy Nhap Giá Tri Cuc Dai Cua N:", "GPE.COM", 3)
 For J = Nn To 1 Step -1
    Cells(1, aA * J + Bb).Interior.ColorIndex = 40 - J
    Cells(1, aA * J + Bb).Resize(, Kk).EntireColumn.Insert
 Next J
End Sub

/(/hững mong là khỏi gởi file lên!

Chuẩn rồi, cảm ơn bạn nhiều nhé