EXCEL VBA如何返回某行某列的值

sheet1range("E3")value

或

sheet1cells(3,5)value

里面的参数也可以改为变量

sheet1range("E"&i)value i为变量

或

sheet1cells(i,j)value i,j为变量

下面的这段VBA可以做到。

假定原始数据放在Sheet1。结果放在Sheet2。

Sub DoIt()

Dim r, s As Object

Sheets(2)Range("a:b")ClearContents '清除Sheet2

sheets(2)range("a1")=sheets(1)range("a1") 'A列标题

sheets(2)range("b1")=sheets(1)range("b1") 'B列标题

Set r = Sheets(1)Range("a2")

While r <> ""

Set s = Sheets(2)Range("a2")

While s <> "" And s <> r

Set s = sOffset(1, 0)

Wend

If s = "" Then s = r

sOffset(0, 1) = IIf(sOffset(0, 1) = "", rOffset(0, 1), sOffset(0, 1) & "、" & rOffset(0, 1))

Set r = rOffset(1, 0)

Wend

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim a As Long

a = TargetRow

MsgBox a

End Sub

不知道你说的a要怎么处理，我就用提示窗显示出来了。

以上就是关于EXCEL VBA 如何返回某行某列的值全部的内容，包括:EXCEL VBA 如何返回某行某列的值、excel或者VBA多行查询值返回、VBA 点击单元格返回行号等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！