VBA定义一函数，逐行读取sheet1中A列的数值，怎么实现

Question

如题所述

Answer 1

读取数据很简单，问题是读取的数据如何处置？追问

比如我在sheet2的A1单元格的数据，要依次与sheet1中A列的一组数据比较，读取差值最小的那行的B列数据（sheet1中）放到sheet2的B1单元格。

追答

For i = 1 To Sheet1.Range("A65536").End(xlUp).Row
Sheet1.Range ("A" & i)
Next i
循环中的表达式就是sheet1的A列的单个单元格数据，从A1向下循环到没有数据为止。其它代码自己写吧，有问题再追问

追问

好的，先谢谢了，我继续做，有问题再请教你啊！顺便问下，你有没有VBA电子版的教程书啊，能否传我下，我邮箱是[email protected]，谢谢啊大师！

本回答被提问者采纳

Answer 2

Sub reada()
Dim ddd As Range
Set ddd = Range("A1:A1000") ‘ 这想读多少自已改
ddd.Select
For Each rddd In Selection

Next
End Sub