excel中VBA获取指定单元格内容

1、筛选指定列获取数据

For Each Rng In Sheets("目录").Range("b1:B23")
    Debug.Print Rng.Value
    If Rng.Value = "个人" Then
        n = n + 1
        Sheets("备注").Cells(n, "g").Resize(1, 5) = Rng.Offset(0, -1).Range("a1:e1").Value
        Sheets("备注").Cells(n, "g").Resize(1, 5) = Rng.EntireRow.Range("a1:e1").Value
    End If
Next