Question

我试图在一个范围内运行单元格（因为我在不同的宏中使用它也可以正常工作），但是现在我还需要它右边的值来使用我的这个值计算，但它似乎没有按预期运行。欢迎任何帮助或建议，我在编码时非常新手。

For Each cell In rng
    currentChimneyHeight = cell.Value
    currentChimneyDiameter = cell(cell.Row, cell.Column + 1).Value
    Worksheets("Stab-klasse").Range("C27") = currentChimneyDiameter
    Worksheets("Stab-klasse").Range("C26") = currentChimneyHeight
    Worksheets("Dosis en depositie").Range("B7:B28").Copy
    Worksheets("Variatie Schouw").Range(Cells(7, currentCollumn), Cells(28, currentCollumn)).PasteSpecial xlPasteValues
    Worksheets("Dosis en depositie").Range("E7:E28").Copy
    Worksheets("Variatie Schouw").Range(Cells(7, currentCollumn + 1), Cells(28, currentCollumn + 1)).PasteSpecial xlPasteValues
    Cells(6, currentCollumn) = currentChimneyHeight
    Cells(6, currentCollumn + 1) = currentChimneyDiameter
    currentCollumn = currentCollumn + 2
Next cell

Answer 1

currentChimneyDiameter = cell(cell.Row, cell.Column + 1).Value

这不会让您获得下一个单元格，而是距离cell 很远的单元格。如果offset将cell (cell.Row, cell.Column + 1) currentChimneyDiameter = cell.offset(0 ,1).Value2 ' ^^^^^^^^^^^^^。要获得下一个单元格，请使用而不是上面的单词：

{{1}}

尝试从列右侧获取值到我选定的单元格（因为值是coorelated）

1 个答案: