.本方法要使用EXCEL VBA宏代码进行操作，代码如下：Option ExplicitSub 复制粘贴可见单元格()Dim rgSrc As RangeDim rgDes As RangeDim rg As Range, rgPt As RangeDim strSrcAdd() As StringDim lCnt As Long, i As Long, j As Long, x As Long, y As LongOn Error GoTo ExitPointSet rgSrc = Application.InputBox(请选择要复制的单元格区域, 提示, , , , , , 8)If rgSrc.Columns.Count rgSrc.Parent.UsedRange.Columns.Count ThenSet rgSrc = rgSrc.Parent.Range(rgSrc.Item(1, 1), rgSrc.Item(rgSrc.Rows.Count, rgSrc.Parent.UsedRange.Columns.
