vba反映列表视图中选定列的数据

Question

通过下面的编码，我能够在listview中添加数据，但是它正在添加来自excel的所有数据。 很少有列包含我不想反映在listview上的敏感数据。 请告知如何仅在列表视图中反映所选列的数据，例如：A列，C列，F列，G列。

wksSource1.Activate
Set rngData = wksSource1.Range("A1").CurrentRegion
If II8 = 1 Then
    For Each rngCell In rngData.Rows(1).Cells
        Me.ListView4.ColumnHeaders.Add Text:=rngCell.Value, Width:=90
    Next rngCell
    II8 = 2
End If
RowCount = rngData.Rows.Count
ColCount = rngData.Columns.Count
For i = 2 To RowCount
    Set LstItem = Me.ListView4.ListItems.Add(Text:=rngData(i, 1).Value)
    For j = 2 To ColCount
        LstItem.ListSubItems.Add Text:=rngData(i, j).Value
    Next j
Next i

Answer 1

用这个：

dim RangeList$()
RangeList= VBA.SPLIT(    Selection.address, ",")

==>您可以在for循环中使用每个范围地址