Question

vb6.0如何读取excel指定某行单元格内容？

Answer 1

问：vb6.0如何读取excel指定某行单元格内容？

问：aa = WorksheetFunction.Transpose(Range("b1:b4001").Value)比如这个可以读取单元格b1 到b4001到变量aa里面bb = WorksheetFunction.Transpose(Range("a1:d1").Value)我就是想a1 b1 c1 d1 读取到bb变量数组 不要用 for 循环怎么写

答：vb6.0如何读取excel指定某行单元格内容？亲，您好！1.打开一个Excel的文件,在表格中输入简单的表格,比如学生成绩表格。2.接着,鼠标左键单击【开发工具】菜单标签,在VBA控件下拉菜单中,并选择按钮控件,...3.然后,在表格中绘制出按钮控件,并修改控件名称。4.接着,鼠标左键单击【查看代码】按钮5然后，在代码窗口中输入VBA语句，比如输入定义变量语句，并选择字符串类型6接着，在代码窗口中输入读取单元格的VBA语句7最后，在设计窗口上，鼠标左键单击按钮，可以看到表格中的，通过VBA程序读取数据，并输出到右边的单元格中，显示出数据了，通过这样的操作，就学会用VBA读取单元格数据了。希望能帮助到您！

答：您好，亲，感谢耐心等待，答案己经帮您找到了，您查看一下喔，谢谢！

答：亲，您好！感谢您的耐心等待！工作表名称上点右键选查看代码,弹出窗口粘贴以下代码 Sub 数据计算() Dim arr() n = [b65536].End(xlUp).Row arr = WorksheetFunction.Transpose(Range(Cells(1, 2), Cells(n, 2)).Value) For i = 1 To UBound(arr) - 1 If arr(i) > arr(i + 1) Then m = arr(i) - arr(i + 1) For h = i + 1 To UBound(arr) arr(h) = arr(h) + m Next End If Next Range("C1").Resize(UBound(arr), 1) = WorksheetFunction.Transpose(arr) End Sub 希望能帮助到您！