VBA改写加一个循环 控制MN两列自动循环粘贴

laoau138

VBA改写加一个循环    控制MN两列自动循环粘贴


原来代码只控制一列自动循环粘贴   B15控制I18:I19数字
当蓝底I18:I19数字等于蓝底B15(按钮B15可变动) 把黄底J9:J10数值  自动粘贴到J列对应位置

看MN列，增加微调按钮B16控制M列..............如何改写这个
用B16控制M18:M29   用B15控制N18:N29
当M18=B16， 当N18=B15，两个同时满足才能把   黄底J9:J10自动粘贴到O18:O19   其它如此类推
N列按这个规律循环
For i = 1 To 2
For j = 1 To 3
Cells(18, "N") = i * j

同时满足B15和B16控制MN列如何改写

最困难需要注意:第20行MN列 第24行MN列  两个都等于12  第一个"MN列=12"粘贴到20行O列
第二个"MN列=12"粘贴到24行O列    用循环如何改写   

laoau138

1、b15是不是变化的?它是不是按
  for i = 1 to 2
      for j = 1 to 3
          [b15] = i * j
      next
  next
这样依次得到1、2、3、2、4、6。
2、b16是否变化，若是，则又是怎样变化?
3、M、N列的值是预先录入还是根据b15、b16的值而得到?
'以下仅凭猜测…………

Sub 控制MN列自动循环粘贴()
r = 18
For i = 1 To 2
    For j = 1 To 3
        [b15] = i * j
        Cells(r, "m") = [b16]
        Cells(r, "n") = [b15]
        Cells(r, "o").Resize(2, 1) = [j9:j10].Value
        r = r + 2
    Next
Next
End Sub