- 締切済み
vbaで・・・
fumufumu_2006の回答
- fumufumu_2006
- ベストアンサー率66% (163/245)
こんなのではどうでしょうか？ マクロの記録を行って、それを書き換えてみました。 Sheet2の1列目で"い"を探し最初に見つけたセルの1つ下のセルから右側に空白前までの範囲（手動でShift+Ctrl+右矢印で操作した時のセル範囲）をSheet1のA1から行列を入れ替えてコピーします。 必要に応じて"い"とSheets("Sheet2").rows(1)とSheets("Sheet1").Range("A1")を変更してください。 Sub sample() Dim r As Range 'まず "い"をSheet2の1行目で探す Set r = Sheets("Sheet2").Rows(1).Find("い", LookIn:=xlValues, LookAt:=xlWhole) If r Is Nothing Then MsgBox "見つかりません" Exit Sub End If '見つかったセルの行＋１のセル Set r = r.Offset(1, 0) '手動でShift+Ctrl+右矢印で操作した時のセル範囲 Set r = Range(r, r.End(xlToRight)) '[編集][コピー] r.Copy '[編集][形式を選択して貼り付け]のSheet1のA1へ[すべて][行列を入れ替える] Sheets("Sheet1").Range("A1").PasteSpecial Paste:=xlAll, Transpose:=True '値のみをコピーする場合はPaste:=xlValue End Sub
関連するQ&A
- vbaにて並べ替えしたい。
並べ替えするには？ ただいまVBA学習中です。 sheet1に次のような文字列がセルに入力されているとします。 3列で30行あります。 Ａ列 Ｂ列 Ｃ列 1行 あ い う 2行 え お か ...以下30行まで続く。 これらを sheet2に Ａ列 あ い う え お か のようにひとつの列へ縦にするにはどのような記述になりますか？ 私なりの考え方ですが セルのスタート位置はシート１のA1とします。 シート1にて ・あ い う と順番に配列に格納 ・セルを左に2つ下に1つ移動 この動作を30回繰り返す（for next 使えばでいいですよね？） シート2に移動してA1から下方向へ 格納された文字列を入力する。 と、考えてみたものの記述の仕方がわかりません。 力貸してください。
- ベストアンサー
- オフィス系ソフト
- エクセル2003ＶＢＡで選択範囲
いつもお世話になっています。 エクセル2003を使用しております。下記を関数又はＶＢＡの組み方・構文を教えて下さい。 (1)Ｅ列には、「１」と「.」と「空白」が入っています（「１」が入ってないケースもあります）が、「１」を検索します。もし「１」が無ければ、Ｊ列を同様に検索します。（中身はＥ列と同じです） (2)「１」が入っているセルから見て、「行」の±１０の範囲内を選択し、別シートにコピーする。 例１. １が入っているセルが、「Ｅ１５」とします。 この場合、コピーしたい範囲は、５行目全部～２５行目全部です。 例２. １が入っているセルが、「Ｅ１７」とします。 この場合、コピーしたい範囲は、７行目全部～２７行目全部です。 分かりにくいかもしれませんが、よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- Excel VBA 全てのセルを読み込み、背景色で判断
VBA初心者です。環境はWindowsXP,Excel2003です。 よろしくお願い致します。 １～３のシートの全てのセルを読み込んで、背景色が赤色のセルの文字をシート４にコピペしたいのです。 このとき、赤色になるセルの列は必ずＦ～ＡＢまで結合されています。 替わるのは何行目かという行数のみです。 （結合セルは、最初のＨ列と見なせば良いのであれば気にしないで下さい。） さらに、赤色のセルをコピペする際に、 赤色のセルから上に上がって、 最初の空白のあるセルの下３行も一緒にコピペして シート４に連れて行きたいのです。 ほとんどのセルは文字と数字で埋まっていますので、 空白セルを条件にすると組み易いかと考えました。 【シート４】は下記のようになる予定です。 ＡＢＣＤＥＦＧＨＩＪＫＬＭＮＯＰＱＲＳＴＵ １～背景色が赤かったシート１のセル～～～～～ ２～を上に行って最初の空白のあったセルの～～ ３～下３行の丸々コピペ～～～～～～～～～～～ ４～～背景色が赤かったシート１のセル内容～～ ５～背景色が赤かったシート２のセル～～～～～ ６～を上に行って最初の空白のあったセルの～～ ７～下３行の丸々コピペ～～～～～～～～～～～ ８～～背景色が赤かったシート２のセル内容～～ ９～背景色が赤かったシート１のセル～～～～～ 10～を上に行って最初の空白のあったセルの～～ 11～下３行の丸々コピペ～～～～～～～～～～～ 12～～背景色が赤かったシート１のセル内容～～ カナリの初心者なため、組まれたものは読めるのですが、 最初から組む事がなかなか出来ません。 お手数をおかけしますが、 どなたか分かる方がいらっしゃったらお願い致します。
- ベストアンサー
- Visual Basic
- Excel コピーについて
Excel2000を使用しています。 データが入っているシートがあります。 ある1つの列について、下の行を見て、次の文字があるところまで、次々とセルのコピーを行いたいのですが、VBAを教えてください。 次の文字があるところまでは、空白のセルです。 よろしくお願いいたします。
- ベストアンサー
- オフィス系ソフト
- エクセル VBAで２つのデータを比較して、一致するものを検索したい
以下のような事をしたいと思っています。 ＶＢＡは今まで使った事が殆どなく困っております。 仕事で作らなければならず、宜しくお願い致します。 エクセルVBAで、既存と新規という２つのシートから ２つの条件（Ａ列とＢ列の完全一致）で行を検索して 一致したものを探し出します。 一致したら「新規シート」の該当した行の売上列のデータを 「既存シート」の該当月の列へコピーしたいと思っております。 また、「新規シート」には「既存シート」にないデータが 存在するので、一致から漏れた行は「既存シート」へ 新たに追加のデータとしてコピーしたいと思っています。 イメージ↓ 既存シート） 商品名 ｜製造地｜６月（製造月の売上）｜７月（製造月の売上） ａ ｜あ ｜￥１５０ ｜ ｂ ｜い ｜￥２００ ｜ （空白） ｜（空白）｜ ｜ 新規シート） 商品名 ｜製造地 ｜７月（製造月の売上）｜ ａ ｜あ ｜￥３００ ｜ ｂ ｜い ｜￥１００ ｜ ｃ ｜う ｜￥２５０ ｜ 上記の２シートで、商品名と製造地の２つが一致していれば 「新規シート」の７月の列のデータを「既存シート」の ７月の列にコピーし、「既存シート」に存在しない 「新規シート」の商品名”ｃ”の行のデータを「既存シート」へ 新たに商品名”ｃ”の行を作成しコピーしたいと思っています。 出来上がり後の（既存シート） 商品名 ｜製造地 ｜６月（製造月の売上）｜７月（製造月の売上） ａ ｜あ ｜￥１５０ ｜￥３００ ｂ ｜い ｜￥２００ ｜￥１００ ｃ ｜う ｜￥０ ｜￥２５０
- 締切済み
- オフィス系ソフト
- vba初心者です。どなたか教えて下さい。
独学でエクセルＶＢＡを勉強している熟年おじさんです。 色んな参考例を見ながらヒントになる事例を探していますが、中々、似た例が見つからず 困っています。手がかりでも掴めたらと思います。どなたかご指導下さい。 同一BOOK内の２つのシートに同じ行と列に同じ項目内容が入っています。その一枚目のシートの行と列を検索して同じ行と列に該当するデータを、二枚目のシートの同じ行列のセルにコピーするのです。 それだけのことですが、もうひとつの条件は、一枚目のシートには毎日新しいデータが入ってきて その二枚目シートのデータを日単位で色分けしたいのです。従って、二枚目のシートには、日単位で 空いているセルにデータが蓄積されていき、空白セルが埋め尽くされていきます。 この場合、各シートのデータが同一セルにダブルことは絶対にありません。 一枚目シート 二枚目シート 行⇒ A B C D E F G 行⇒ A B C D E F G 列 A1 2 6 1 9 23 7 90 列A1 2 6 1 9 23 7 90 B5 11 8 18 34 67 9 34 B5 11 8 18 34 67 9 34 C9 C9 U9 U9 ・・・翌日データ追加・・・ P5 P5 上記はシートイメージですが、行は品名で列は工程名で、中のデータは測定値です。 ２枚のシートには全く同じ品名と工程名が入っていて、毎日、入ってくる一枚目シートには その日のデータしか入ってきません。それを、二枚目のシートの空いたセルにコピーして いきます。データは毎日追加すのですが、同一セルにダブルことはありません。 以上よろしくお願いします。
- 締切済み
- Visual Basic
- VBAを使って検索したセルをコピーして別の場所に貼り付ける。
こんにちは。 業務でエクセルを使っていたのですが、 あまりに毎回時間がかかってしまうため、 VBAを利用して自動化したいと考えています。 まず、以下のようなシートが存在します。 A B C D E F G H 1 2 なす とまと 3 20 3 かぼちゃ えんどう 4 55 4 きゅうり りんご 2 82 5 とまと 6 7 みかん 3 10 8 にんじん ごぼう 9 21 9 はくさい うり 10 33 10 ねぎ 次のような作業を自動化したいのです。 1.A列に入っている野菜の名前と一致するものがF列にあるかどうか検索する。 2.もし一致するセルがあれば、そのセルとその横のセル、もう一つ横のセルをまとめてコピーしてそれぞれC、D、E列で、検索したもとの野菜と同じ行にペーストする。 3.この操作をA列にある全ての野菜について行い、 もし、F列に一致するものがなければ、CDE列は空欄にしておく。 4.A列一番下まで完了すれば作業終了。 以上です。 よろしくお願い致します。
- 締切済み
- Visual Basic
- VBA教えて下さい
VBA初心者です。 思った結果が出ず手詰まりしました。 こういった場合のコードを教えて欲しいです。 まず、例として エクセルファイル名が 試験1(sheet1) 試験2とします(sheet2) 試験1のsheet1の中にある B1～B100セルの文字をコピーするが セルの背景色が塗られているセルはコピーしない (セルの背景色塗りつぶしなしだけコピーするといった内容です) そして、試験2のsheet2のB1～B100に貼り付けるが空白行は上に詰めるようにする 回答お願いします。
- ベストアンサー
- Visual Basic
お礼
ありがとうございます。 やはりマクロを記録して不要な部分を削ったり修正したりするのが 一番の近道ですね。 助かりました。