问题描述
如果旁边的单元格填充了数据，我正在尝试将给定范围内的每个单元格增加 1。例如，我提供的表格是我的真实数据包含的虚拟集，我需要能够编辑我的代码才能看到 Loan Amount 列的前 3 行中有一个金额因此 Loan Number 列应该能够从 1 开始，然后为填充数据的每个单元格增加，因此在这种情况下，Loan Number 中的值将是 1、2、3。我已经粘贴了我的部分与此问题相关的代码，问题在于它仅在填充的贷款金额中的每个单元格的每个贷款编号单元格中输入一个 1 值。我如何修复我的代码，而不是保持静态为 1，而是增加 1，直到贷款金额列中的其他单元格没有填充数据。 TIA！
Dim r as Range,cell As range
Dim mynum As Range
Set r = Range("C29:C48")
mynum = 1
For Each cell in r
If cell.offset(0,1) <> "" Then
cell.value = mynum
mynum = mynum + 1
End If
Next
| 贷款号码 | 贷款金额 |
|---|---|
| ---------- | $25000.00 |
| ---------- | $30000.00 |
| ----------- | $35000.00 |
| ----------- |
解决方法
暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！
如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。
小编邮箱:dio#foxmail.com (将#修改为@）