エクセルのマクロでこういう場合は？

質問

エクセル９７です。

Sheet1の E3:J29 に表があります。
E列、F列は文字列、G列は数値、H～J列には式が入っています。
この表の G列の値が空白や０でない行だけをコピーして、Sheet2 のB2 以下に切れ目なく表の「値」を貼り付けるにはどうのようなマクロを書けばいいのでしょうか？（G列が空白や０の行はSheet2の表では一切無視され、空白行ができないようにしたいのです。）
よろしくお願いします。

回答No.7

imogasi · ベストアンサー

#5,#4のものです。＃５のお礼部分について。
＞セルG3000を選択しているのはなぜでしょうか。
済みません、下のほうのセルを適当に記入したもので、最下行Ｇ６５５３６とすれば完全でしょう。
＞sh2.Cells(j, "B").Value = sh1.Cells(i, "G")としましたがいいんですよね。
cells()やrange()を使う時、Ｖａｌｕｅの場合、省略できるので、省略しています。入れるのも明確になり良いでしょう。
＞0を”0”にしたらうまくいきました
もう一度やって見ましたが、0(数値）も飛ばしましたが。
ただ別のプログラムでやると０と’０の区別が思っているのと違うので、勉強してみます。

お礼

お礼が大変おそくなり申し訳ございません。
おかげさまで解決いたしました。
有難うございました。

回答No.6

noname#148473

＃２です。

文字列が入る可能性があるということでしたら、ＩＦ文の行を以下のように変えてみてください。
うちではこれで問題なく動作しました。

If IsNumeric(Cells(xi, 7).Value) And Cells(xi, 7).Value <> 0 Then

お手数ですが、不具合があれば、また補足くださいませ。

お礼

お礼が大変おそくなり申し訳ございません。
おかげさまで解決いたしました。
有難うございました。

回答No.5

imogasi

＃３です。ＯＫＷＥＢからコピーして、私がやると上手く走ります。
テストデータ（Ｇ列）

（無し）　　　（Ｇ２セル）
0
asd
大阪
京都
0
（無し）
（１ブランク）
fan
AERTY　　　　（Ｇ１１セル）
でやって見て、エラーになりません。Ｓｈｅｅｔ２に
asd　　　Ｂ２セル
大阪
京都

fan
AERTY　　Ｂ７セル
とセットされました。

お礼

なぜかわかりませんが、0を”0”にしたらうまくいきました！どうしてでしょう？
良く理屈がわかりません。
sheet1から持ってきたいのは式ではなく値ですので、
sh2.Cells(j, "B").Value = sh1.Cells(i, "G")としましたがいいんですよね？
ところでセルG3000を選択しているのはなぜでしょうか？
標準モジュールにペーストしたマクロをそのままコピーしました。
↓

Sub test02()
Dim sh1 As Worksheet
Dim sh2 As Worksheet
Set sh1 = Worksheets("sheet1")
Set sh2 = Worksheets("sheet2")
j = 2
sh1.Activate
sh1.Range("G3000").Select
d = Selection.End(xlUp).Row
For i = 1 To d
If (sh1.Cells(i, "G") <> "0") And (sh1.Cells(i, "G") <> "") Then
sh2.Cells(j, "B").Value = sh1.Cells(i, "G")
j = j + 1
End If
Next i
End Sub

回答No.4

imogasi

＞sheet2にもってくるのはG列だけではありません。その表の他の列の部分も持ってきたいのです。
これは簡単。h列をｃ列に持ってくるなら
sh2.Cells(j, "C") =sh1.Cells(i, "H")
同じような行をいくつも並べれば良い。右辺のSh1.は安全のため今回付け加えました。
＞エラーが出た
私のテストでは上手く行きました。
＞G列にはいるのは数値だけではありませんでした。文字列も一部あったのです。
Ｇ列に入っているデータは（１）ＤＥＬキーを押した状態
すなわち""、数値の０、その外どんなデータが入っていますか。
＞If (sh1.Cells(i, "G") <> 0) And (sh1.Cells(i, "G") <> "") Then
ここは、ＯＫＷＥＢの強制改行で２行になっているが、１行にして（下の行を、上の行の右にくっ付けて）
実行してくださっているでしょうか。

補足

さっそくありがとうございます。

> sh2.Cells(j, "C") =sh1.Cells(i, "H")
> 同じような行をいくつも並べれば良い。右辺のSh1.は安全のため今回付け加えました。

その通りですね。了解しました。

＞If (sh1.Cells(i, "G") <> 0) And (sh1.Cells(i, "G") <> "") Then

上記は1行です。
G列のデータは直接数値やABC等の文字列を入力したもの、あるいは他のセルの値を =sheet3!B5 のような式で参照したものです。
どうも文字列のところでひっかかってしまうようです。文字列より上の数値はSheet2に転記され、文字列で止っています。（文字列は転記されない）

よろしくお願いします。

回答No.3

imogasi

コピーというより、代入で出来ます。
Sub test02()
Dim sh1 As Worksheet
Dim sh2 As Worksheet
Set sh1 = Worksheets("sheet1")
Set sh2 = Worksheets("sheet2")
j = 2
sh1.Activate
sh1.Range("G3000").Select
d = Selection.End(xlUp).Row
For i = 1 To d
If (sh1.Cells(i, "G") <> 0) And (sh1.Cells(i, "G") <> "") Then
sh2.Cells(j, "B") = Cells(i, "G")
j = j + 1
End If
Next i
End Sub
（少数例でテスト済み）

お礼

さっそくありがとうございます。
下でも書きましたが、G列にはいるのは数値だけではありませんでした。文字列も一部あったのです。 その為だと思いますが、

If (sh1.Cells(i, "G") <> 0) And (sh1.Cells(i, "G") <> "") Then

の部分で実行時エラー13「型が一致しません」となってしまいました。
また、sheet2にもってくるのはG列だけではありません。その表の他の列の部分も持ってきたいのです。
どう手直しすればいいでしょうか？

回答No.2

noname#148473

＃１の方が書かれたように、データ範囲が常にE3:J29なのかどうかで違ってくるのですが、とりあえず固定なのだと仮定しますと、以下のようになります。

'-----------------------------------
Sub データコピー()

Dim xi As Integer
Dim xj As Integer

Set WS1 = Worksheets("Sheet1")
Set WS2 = Worksheets("Sheet2")

xj = 2

For xi = 3 To 29
If Cells(xi, 7).Value > 0 Or Cells(xi, 7).Value < 0 Then
With WS2
.Cells(xj, 2).Value = WS1.Cells(xi, 5).Value
.Cells(xj, 3).Value = WS1.Cells(xi, 6).Value
.Cells(xj, 4).Value = WS1.Cells(xi, 7).Value
.Cells(xj, 5).Value = WS1.Cells(xi, 8).Value
.Cells(xj, 6).Value = WS1.Cells(xi, 9).Value
.Cells(xj, 7).Value = WS1.Cells(xi, 10).Value
End With
xj = xj + 1
End If
Next

End Sub
'-----------------------------------

もしデータ数が可変なのでしたら、補足してください。

お礼

さっそくありがとうございます。

If Cells(xi, 7).Value > 0 Or Cells(xi, 7).Value < 0 Then
の部分で実行時エラー13「型が一致しません」となってしまいました。
わたしの説明の書き方がまずかったです。
G列にはいるのは数値だけではありませんでした。文字列も一部あったのです。
その為だと思います。
どう手直しすればいいでしょうか？

回答No.1

noname#181872

もとの表はE3:J29で固定ですか？

もしそうであれば、forループで3から29までまわして、

if IsEmpty(Cells(i, 7).Value) = false and Cells(i, 7).Value <> 0

という形で通る行だけコピーペストしたらいいのではないでしょうか？

それかまるごとコピーして、上と似たような形で…=true or …=0のとき
その行を削除する、というのではいかがでしょうか？

お礼

ありがとうございます。

その書き方がわからないのです。すみません。