VBA基础求解

A9998090

把B列的值填入C列到Z列区域内 ，当C列到Z列区域的值等于A1的值时停止填充代码该怎么实现

lcluck2002

建议你上个附件，把原数据，和模拟的结果放进去，注明具体的需求。单单看你这两句话，可能理解出不同的意思来。

饮冰e士

“当C列到Z列区域的值等于A1的值时停止“
不是B=A1时停止？

A9998090

饮冰e士 发表于 2024-10-19 14:48
“当C列到Z列区域的值等于A1的值时停止“
不是B=A1时停止？

是等于A列在值时停止填充  例如A1单元格在值是100   B1单元格的值是30，C1单元格填充入B1的值也就是30，同理D1也是30，E1也是30，到了F1的时候填充30的话 C1到F1这里值就会超过A1的值 所以在F1这里停止填充填入A1减去C1,D1,E1,的值  把这个逻辑再进行个循环起来

A9998090

lcluck2002 发表于 2024-10-19 14:31
建议你上个附件，把原数据，和模拟的结果放进去，注明具体的需求。单单看你这两句话，可能理解出不同的意思 ...

大致意思就是这样

lcluck2002

我想大概是这么个意思吧。

平平淡淡2025

我也是新人，从另一个角度写了段代码，希望大家多多指教
Sub jisuan()
Dim irow, i, j
Dim yushu, shang
irow = Range("A65536").End(xlUp).Row   '获取最后以后行号
For i = 2 To irow                     '‘开始循环
yushu = Cells(i, 1) Mod Cells(i, 2)    '求余
shang = Int(Cells(i, 1) / Cells(i, 2))  '求商
'如果余数是0
If yushu = 0 Then
    For j = 3 To shang + 2
    Cells(i, j) = Cells(i, j - 1)
    Next j
'如果余数不是0
     Else
     For j = 3 To shang + 4
     '当填到倒数第二列之前
         If j <= shang + 3 Then
         Cells(i, j) = Cells(i, j - 1)
      '最后一个数
         Else
         Cells(i, j) = Cells(i, 2) - yushu
         End If
      Next j
End If
Next

End Sub