Excel VBA-将变量的值粘贴到单元格中

Question

我有一个For循环，它将在其中找到具有某个值的单元格（例如单词“ Item”）。 找到该单元格后，我想将值粘贴到它下面的第一列中的行中。

例如，如果For循环在单元格A1中找到“项目”，我想将变量的值粘贴到单元格I2中。

我希望能够同时使用Long变量和String变量。

现在我正在尝试类似的东西：

Cells(i.Offset(1, 0), 9).Value = myLongVariable

要么

Cells(i.Offset(1, 0), 9).Text = myStringVariable

和其他变体，但在此行中我不断收到溢出错误。

我已经尝试过： Range("I" & i.Offset(1, 0)).Value = myLongVariable并稍有变化，但是我收到一条错误，指出Run-time error 1004: Method Range of object _Worksheet failed

或workBook.Sheets("Sheet1").Range("I" & i.Offset(1, 0)).Value = myLongVariable但会给出Run-time error 1004: Application-defined or object-defined error 。 由于我已经定义了workBook以及i和myLongVariable ，因此不确定所指的是什么。

作为一种略有不同的方法，我尝试将变量数据粘贴到该行的下一个空白单元格中，该空白单元'i.Offset(1, 0).End(xlToRight).Offset(0, 1).Value = myLongVariable是列I中的单元格。这是我用于此的代码： 'i.Offset(1, 0).End(xlToRight).Offset(0, 1).Value = myLongVariable 。 效果很好，除了在这种情况下：单元格A1：C1为空，D1：H1具有值。 然后，应将值粘贴到I1中，但相反，它认为D1是结束并将其发布到那里。 有什么想法吗？

谢谢！

Answer 1

在此处使用偏移量是错误的，因为您没有引用单元格，

我只是一个数字，所以你不能抵消它

Cells(i.Offset(1, 0), 9).Value = myLongVariable
Cells(i.Offset(1, 0), 9).Text = myStringVariable

应该

Cells(i + 1, 9).Value = myLongVariable
Cells(i + 1, 9).Value = myStringVariable

Answer 2

只是为了与其他答案不同，您还可以使用以下方法：

i.Offset(1).EntireRow.Cells(9).Value = myLongVariable
i.Offset(1).EntireRow.Cells(9).Value = myStringVariable

或确保使用正确的列：

i.Offset(1).EntireRow.Columns("I").Value = myWhateverVariable

仍然，如我的评论中所述， Cells(i.Row + 1, 9)还是可能的，或者Cells(i.Row + 1, "I") ;）

Answer 3

假设i是一个范围，因为您在另一个问题中遇到了这个问题： i.Offset(1,0)返回一个Range对象，而不是数字。 在代码中使用它的方式看起来像是您尝试将其用作行数。 要获取范围的行，只需使用.Row属性：

i.Offset(1,0).Row
i.Row + 1 'same thing 

然后

Cells(i.Offset(1, 0), 9).Value = myLongVariable

应该

Cells(i.Row+1, 9).Value = myLongVariable

---

下一件事：

 Cells(i.Offset(1, 0), 9).Text = myStringVariable

这是与Offset相同的问题，而且还有.Text属性。 .Text属性是只读的，它返回屏幕上显示的字符串。 它与值不同，例如，如果单元格太小，它将变为##### 。 将.Value属性用于字符串和数字。

---

现在最后一件事：

Somecell.End(xlToRight)

End(xlToRight)查找区域的末端，这意味着如果单元格为空，则查找空白区域的末端，该区域是包含某些内容的下一个单元格或工作表的末端。 如果单元格不为空，则查找第一个空单元格。 您想要从右边搜索第一个非空单元格：

Cells(Somecell.Row,Columns.Count).End(xlToLeft) 'this is the last nonempty cell in the Row of Somecell

您必须向右移动一列以获取第一个空白单元格，例如使用Offset 。