vba循环读取一列数据

可以使用以下代码实现：

Sub LoopThroughColumn()
Dim i As Integer
Dim lastRow As Integer

lastRow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row '获取最后一行的行数

For i = 1 To lastRow '循环读取每一行的数据
MsgBox Cells(i, 1).Value '在消息框中显示每一行的数据
Next i
End Sub

相关问题

vba读取Excel一列所有文本内容并放入同一单元格

您可以使用以下VBA代码来读取Excel表格中的一列文本内容，并将其放入同一单元格中：

Sub ConcatenateColumn()
    Dim LastRow As Long
    Dim i As Long
    Dim ConcatenateText As String
    
    LastRow = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row '获取最后一行
    ConcatenateText = "" '初始化拼接文本
    
    For i = 1 To LastRow '循环读取每一行
        ConcatenateText = ConcatenateText & Cells(i, 1).Value & " " '将每一行的文本内容拼接到一起
    Next i
    
    Cells(1, 2).Value = ConcatenateText '将拼接的文本放入B1单元格中
End Sub

在这个例子中，我们将第一列的所有文本内容拼接到了B1单元格中。您可以根据您的实际需要修改代码中的行号和列号。

vba 汇总第一列的数据 并生成TXT文件

可以使用 VBA 读取 Excel 中的数据，并将其保存到 TXT 文件中。以下是一个示例代码，它将第一列的数据汇总并保存到一个名为 "output.txt" 的文件中：

Sub SummarizeData()
    Dim i As Integer
    Dim lastRow As Long
    Dim data As String
    
    lastRow = Cells(Rows.Count, 1).End(xlUp).Row ' 获取第一列最后一行的行号
    For i = 1 To lastRow
        data = data & Cells(i, 1).Value & vbCrLf ' 将第一列的数据逐行添加到 data 变量中，并添加回车换行符
    Next i
    
    ' 将 data 变量中的数据保存到文件
    Open "output.txt" For Output As #1
    Print #1, data
    Close #1
    
    MsgBox "已生成 output.txt 文件！"
End Sub

上述代码中，`lastRow` 变量获取第一列最后一行的行号，然后使用一个循环逐行读取第一列的数据，并将其添加到 `data` 变量中。最后，使用 `Open` 语句打开一个名为 "output.txt" 的文件，并使用 `Print` 语句将 `data` 变量中的数据输出到文件中，最后使用 `Close` 关闭文件。