Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


3958 / 13644 ツリー ←次へ | 前へ→

【59268】条件に合う数値を左上詰めで表示したい 事務員 08/12/4(木) 9:11 質問[未読]
【59269】Re:条件に合う数値を左上詰めで表示したい ひげくま 08/12/4(木) 9:34 発言[未読]
【59270】Re:条件に合う数値を左上詰めで表示したい 事務員 08/12/4(木) 9:50 発言[未読]
【59271】Re:条件に合う数値を左上詰めで表示したい ひげくま 08/12/4(木) 10:11 回答[未読]
【59273】Re:条件に合う数値を左上詰めで表示したい 事務員 08/12/4(木) 10:22 お礼[未読]

【59268】条件に合う数値を左上詰めで表示したい
質問  事務員  - 08/12/4(木) 9:11 -

引用なし
パスワード
   数値が10以上の値をA1から詰めて表示したいのですが
やり方が分かりません。
下記コードだと場所まで指定する方法が分からないので
いい方法あれば教えてもらえませんか

Sub 一斉転記()
Dim A As Variant
Dim RowsA As Long
Dim ColumnsA As Long
Dim i As Long
Dim j As Long

With ActiveSheet
RowsA = .Cells(Rows.Count, 1).End(xlUp).row
ColumnsA = .Cells(1, Columns.Count).End(xlToLeft).Column
A = .Range(.Cells(RowsA, ColumnsA), (.Cells(1, 1)))
For i = 1 To RowsA
For j = 1 To ColumnsA
If A(i, j) >= 10 Then
Sheets("Sheet2").Cells(i, j).Value = A(i, j)
End If
Next
Next
End With
End Sub

【59269】Re:条件に合う数値を左上詰めで表示したい
発言  ひげくま  - 08/12/4(木) 9:34 -

引用なし
パスワード
   こんにちは。

iとjは、Activesheet用の変数で、Sheet2用に別の変数を用意しないと無理だと思いますよ。

あと、
> 数値が10以上の値をA1から詰めて表示したいのですが
とのことですが、A1から「どのように」詰めて表示したいのでしょうか?
質問内容が具体的じゃないですね。

たとえば、Activesheetが

1 11 15
3  5  6
10 12  8
5  2 16

となっていた場合、Sheet2はどうなって欲しいのでしょうか?

【59270】Re:条件に合う数値を左上詰めで表示したい
発言  事務員  - 08/12/4(木) 9:50 -

引用なし
パスワード
   ▼ひげくま さん:

>たとえば、Activesheetが
>
> 1 11 15
> 3  5  6
>10 12  8
> 5  2 16
>
>となっていた場合、Sheet2はどうなって欲しいのでしょうか?

返信ありがとうございます。
言葉足らずですみませんでした。
上記の図だと、下の図になるように変換したいのですが
簡単な方法はあるでしょうか?

A1 A2 A3
10 11 15
  12 16

【59271】Re:条件に合う数値を左上詰めで表示したい
回答  ひげくま  - 08/12/4(木) 10:11 -

引用なし
パスワード
   > iとjは、Activesheet用の変数で、Sheet2用に別の変数を用意しないと無理だと思いますよ。

これに関してはスルーというのがちょっと不満ですが・・・(笑)

列は同じで、10以上のものだけを上詰めにしたい、ということですね。

ループのネストを逆にして、
Sheet2の行変数としてkを追加して、

For j = 1 To ColumnsA
k = 1
For i = 1 To RowsA
If A(i, j) >= 10 Then
Sheets("Sheet2").Cells(k, j).Value = A(i, j)
k = k + 1
End If
Next
Next

とすれば良いんじゃないですかね?

【59273】Re:条件に合う数値を左上詰めで表示したい
お礼  事務員  - 08/12/4(木) 10:22 -

引用なし
パスワード
   ▼ひげくま さん:
おぉ〜うまくいきました!
sheet2用の変数を用意すれば良かったのですね。
お世話になりました。
ほんとありがとうございました〜

3958 / 13644 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free