vba 获取 某一字段的值，赋予给另一个excel的某一字段中 急求

ActiveWorkbookWorksheets("Sheet2")cells(j,"G")= _

ThisWorkbookWorksheets("Sheet1")cells(i,"A")

不知道你怎么定义的。8，5，5是什么意思。如果是删除第8行，应该是：

xlsheetrows("8")delete

如果是第8到12行：

xlsheetrows("8:12")delete

你实例化了excel对象，后面的代码就要按excel VBA代码规范去写。

如同你实例化了 ScriptControl 或 htmlfile 来提取json数据，后面代码就要按java的写一样。

iRows=activesheetusedrangerowscount\x0d\iColumns=activesheetusedrangeColumnscount\x0d\\x0d\'如果表格前面的几行或几列可能是空的，需要获得最下面的行数和最右面的列数：\x0d\with activesheetusedrange\x0d\ iEndRow=rowscount+row-1\x0d\ iEndColumn=Columnscount+column-1\x0d\end with

Sub macro1()

Dim arr(2), i As Long, j As Long, s() As String

arr(0) = [c1]CurrentRegion

arr(1) = [q1]CurrentRegion

arr(2) = [ai1]CurrentRegion

For i = 0 To 2

ReDim s(1 To UBound(arr(i)))

For j = 1 To UBound(arr(i))

s(j) = Join(ApplicationIndex(arr(i), j, 0), " ")

Next

Open "d:\" & i & "txt" For Binary As #1

Put #1, , Join(s, vbCrLf)

Close #1

Shell "notepad d:\" & i & "txt", vbNormalFocus

Next

MsgBox "ok"

End Sub

以上就是关于vba 获取 某一字段的值，赋予给另一个excel的某一字段中 急求全部的内容，包括:vba 获取 某一字段的值，赋予给另一个excel的某一字段中 急求、这是段CAD VBA与excel交互的代码，自定义deleteRow函数中的第一个参数，数据类型是什么参数类型不匹配、如何再VBA里获取当前工作表里数据的行数和列数等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！