自动填充直到数据在B列VB.Net中结束

时间:2013-08-27 10:31:33

标签: vb.net excel autofill

我在VB.net中遇到的问题很少。我在Excel A列B中有数据的excel文件。我想在C列中将值写为“USD”,直到列B或A列中的值结束。

在Excel VBA中,我使用

Range ("C2") = "USD"
Range("C2").Copy Range("C3", Cells(Rows.Count, "B").End(xlUp).Offset(0, 1))

这将填补美元直到B栏中的值结束。

任何人都可以帮我解决如何在VB.Net中使用它吗?

我在VB.net中尝试过类似的东西。

With objworkbook2
Dim my_variable As String
Dim Worksheets = objworkbook2.Worksheets("Test USD")
my_variable = "USD"
if Worksheets.Cells(2, 1).Value >= 1 Then 'Cell A9 contains Number
Worksheets.Cell(2, 3).Value = my_variable
End if
End With 

请帮我解决如何在VB.Net中循环播放

1 个答案:

答案 0 :(得分:0)

您需要使用工作表变量来获取单元格和范围。根据文档,xlUP = -4162。

Dim ws = objworkbook2.Worksheets("Test USD")
ws.Range ("C2") = "USD"
ws.Range("C2").Copy (ws.Range("C3", ws.Cells(ws.Rows.Count, "B").End(-4162).Offset(0, 1)))