|
βさん
お忙しい中レスをいただきありがとうございました。
すぐに試してみたのですが、うまく実行できておりません。
素人ですのでもう少しお時間をもらえればと思います。
具体的には、コピーアンドペーストをしたシートの実行と
保存がうまくいっていません。
またうまくいきましたらお返事させていただこうとおもいます。
ありがとうございました。
▼β さん:
>▼kenkyu-sya さん:
>
>質問に回答をもらってからのほうがいいかとも思いますが、推測で。
>
>Sub Test()
> Dim r As Range
> Dim a As Range
> Dim f As Range
> Dim t As Range
> With Range("A1").CurrentRegion
> With .Offset(1, 1).Resize(.Rows.Count - 1, .Columns.Count - 1)
> For Each r In .Rows
> On Error Resume Next
> Set a = r.SpecialCells(xlCellTypeConstants)
> On Error GoTo 0
> If Not a Is Nothing Then
> Set f = a.Areas(1).Cells(1)
> Set t = a.Areas(a.Areas.Count).Cells(a.Areas(a.Areas.Count).Cells.Count)
> Range(f, t).Value = f.Value
> End If
> Next
> End With
> End With
>End Sub
|
|