|
Sub 不连续区域数据处理()
Dim Rng As Range, OBJRng As Range, myareas As Areas
Sheets("筛选表").Select
Cells(1, 1).AutoFilter Field:=1, Criteria1:="A10"
Set myareas = Sheets("筛选表").AutoFilter.Range.SpecialCells(xlCellTypeVisible).Areas
Sheets("目标表").Select
Cells.Select
Selection.Clear
For i = 1 To myareas.Count '区
For j = 1 To UBound(myareas(i).Value2, 1) '行
For k = 1 To UBound(myareas(i).Value2, 2) '列
Set Rng = myareas(i)(j, k)
Set OBJRng = Sheets("目标表").Cells(Rng.row, Rng.Column)
With OBJRng
.Value = Rng.Value
.AddComment Rng.row & "行" & Rng.Column & "列" & vbLf & "地址:" & Rng.Address
End With
Next
Next
Next
End Sub
[ 本帖最后由 zxylxw 于 2010-6-30 11:49 编辑 ] |
|