Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
3979 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【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用の変数を用意すれば良かったのですね。
お世話になりました。
ほんとありがとうございました〜
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
3979 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free