0

エクセルの質問です。 sheet1のB1からB500までに【1234-56789-000】のような14桁（ハイフン含み）の数字が入力されています。
その中に、1234-5678B-000等の10桁目にBの文字を含んだ値が入力されている行があります。10桁目に【B】が入力された行を検索し、例）としてA400にそのDataが存在した場合、400行目のData（A列～AK列）までをコピーしA510（510行目）へ貼り付け、400行目を削除するマクロを作成しました。

Sub sample()
Dim r As Long
With Worksheets("Sheet1")
For r = 500 To 1 Step -1
If Mid(.Range("A" & r).Value, 10, 1) = "B" Then
.Range("A" & r).EntireRow.Cut
.Rows(510).Insert shift:=xlDown
.Rows(509).Insert shift:=xlDown
End If
Next
r = .Range("A" & Rows.Count).End(xlUp).Row
.Range("A510:AK" & r).Sort Key1:=.Range("A510"), _
Order1:=xlAscending, Header:=xlNo
End With
End Sub

また、sheet2でsheet1の1～500行目までを関数式で計算させています。

上記マクロで、sheet1の1～500行目にBを含んだDataが10個あったとし、10行削除します。
しかし、sheet2のA1で関数式（例）=SUM(A1:A500)が=SUM(A1:A490)になってしまいます。
sheet1の1～500行目までの間の行を削除してもsheet2の関数式が変化しないようにする方法はありますでしょうか？

宜しく御教授お願い致します。

質問者が選んだベストソリューション

Yahoo!知恵袋 4785日前