VBA中如何将一列的数据存入数组

可以先定义一个数组，然后使用循环语句将列中的数据逐个存入数组中。具体实现可以参考以下代码：

Dim arrData() As Variant
Dim i As Long

ReDim arrData(1 To Range("A1").End(xlDown).Row)

For i = 1 To Range("A1").End(xlDown).Row
arrData(i) = Range("A" & i).Value
Next i

这样就可以将列A中的数据存入名为arrData的数组中了。

相关问题

VBA不打开txt 读取数据分行存入数组然后按列拆分输出到excel表

ChitGPT：你好！关于你的问题，你可以使用VBA打开txt文件，使用Split函数将数据按行进行拆分，然后将拆分后的数据存储到数组中。接下来，你可以在Excel中打开一个新的工作表，将数组中的数据按照列进行拆分输出。

以下是一个简单的VBA代码示例：

Sub ReadTxtFile()
Dim filePath As String
Dim dataArray() As String
Dim dataRange As Range
Dim i As Integer, j As Integer

'选择要打开的文本文件'
filePath = Application.GetOpenFilename(FileFilter:="Text Files (*.txt), *.txt")
If filePath = "False" Then Exit Sub

'打开文件，读取数据到数组中'
Open filePath For Input As #1
dataArray = Split(Input$(LOF(1), 1), vbNewLine)
Close #1

'在Excel中输出数据到新工作表上'
Sheets.Add
Set dataRange = Range("A1").Resize(UBound(dataArray) + 1, 1)
dataRange = Application.Transpose(dataArray)
For j = 1 To UBound(dataArray) + 1
For i = 1 To UBound(Split(dataArray(j - 1)))
Cells(i, j) = Split(dataArray(j - 1))(i - 1)
Next i
Next j
End Sub

希望能够帮到你！

vba 用数组去筛选a列内容

在VBA（Visual Basic for Applications）中，你可以使用For循环和Array公式结合来筛选A列的内容。假设你想基于某些条件保留特定值，这里是一个基本的例子：

Sub FilterArray()
    Dim arrData As Variant ' 定义一个动态数组来存储A列数据
    Dim rngData As Range ' 定义范围对象指向A列
    Dim i As Long
    
    ' 设置A列的范围（假设A列为Sheet1!A:A）
    Set rngData = Sheets("Sheet1").Range("A:A")
    
    ' 将A列数据复制到数组arrData
    arrData = rngData.Value
    
    ' 假设你要筛选出数值大于50的元素
    For i = LBound(arrData, 1) To UBound(arrData, 1)
        If arrData(i, 1) > 50 Then ' 检查每个元素是否满足条件
            ' 这里可以根据需要添加更多的筛选逻辑
            ' 例如将符合条件的数据存入新的数组或者另一个范围
            ' arrFiltered = Union(arrFiltered, arrData(i, 1)) ' 如果你想保存所有符合条件的数据
        End If
    Next i
    
    ' 如果有筛选结果，可以在这里处理或显示它们
End Sub

在这个例子中，`arrFiltered` 可能是你想要的新数组，包含了满足条件的A列元素。