如何解决如果旁边的单元格不为空，如何在范围内将单元格增加 1 [VBA]
如果旁边的单元格填充了数据，我正在尝试将给定范围内的每个单元格增加 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 举报，一经查实，本站将立刻删除。
