Question

我草拟了两个表来计算一些值。一个值（吸引力）出现在H16中，另一个值（竞争力）出现在H26中。

每当我计算新值时，我必须能够在按下ADD按钮时将这些值添加到列K和L中。两列都具有以下范围; K10：K26和L10：L26。

所以第一次按“添加”时，我希望H16转移到K10，H26转移到L10。第二次按“添加”，我希望H16和H26中的新值插入K11和L11。

我已经有好几种了，但我的基本知识显然不是基本知识。

Answer 1

您可以像这样在列中获取最后使用的行：

Columns(col_number).Rows(Rows.Count).End(xlUp).Row

假设K10是最后一行，你可以这样做：

Cells(Columns(11).Rows(Rows.Count).End(xlUp).Row + 1, 11).Value = Range("H16").Value

这将找到最后一次使用的行+ 1和第11列（K）并将其值设置为H16的值

另一种方法是从第10行开始，然后继续向下，直到找到一个空白单元格并将其值设置为您想要的任何值。

例如：

'Create a variable to store the current row
Dim i As Long

'Start at row 10 and go down until you find a blank cell
For i = 10 To Rows.Count
    'If the current cell is blank
    If Cells(i, 11).Value = "" Then
        'Set its value to H16
        Cells(i, 11).Value = Range("H16").Value
        'Stop looking for blank cells
        Exit For
    End If
Next

插入值，新行宏

1 个答案: