[[20240717113816]]　『VBA　他の列の値を入れたい』（しんちゃん）　ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) |

| 全文検索 | 過去ログ ]

『VBA　他の列の値を入れたい』（しんちゃん）

VBAを勉強中の初心者です。

Excelの表のB列に*が入ったセルがあります。

の入ったセルの場所にH列の同じ位置のセル値をもってきたいのです。

このExcelは毎回行数が変わり、*の位置も変わってきます。

宜しくお願い致します。

＜使用 Excel：Excel2019、使用 OS：Windows11 ＞

 >Excelの表のB列に*が入ったセルがあります。

 手動でそれを探す操作をマクロでやったらよろし
 って、勉強する気あるの？

（頭使え） 2024/07/17(水) 12:32:19

 行の先頭の * を入れると、なにか書式設定文字としてはたらいちゃうみたいですね

 Sub sample()
    Dim aCell As Range
    For Each aCell In Range("B1", Cells(Rows.Count, "B").End(xlUp))
        If aCell.Value = "*" Then aCell.Value = aCell.Offset(, 6).Value
    Next
 End Sub
 とか
 Sub sample2()
    Application.ReferenceStyle = xlR1C1
    Columns("B:B").Replace What:="~*", Replacement:="=RC[6]", LookAt:=xlWhole
    Application.ReferenceStyle = xlA1
 End Sub
 とか
 やり方はいろいろあるので、自分でやってみるといいです

 なんか初心者に対して不必要に当たりがきついですね
（´・ω・`） 2024/07/17(水) 12:41:22

何十年やってても勉強中とか初心者という人が多いですから
（頭使え） 2024/07/17(水) 13:06:26

返信ありがとうございました。
勉強になります。
自分で途中まで作ったのですが、どうしても処理が出来ず質問させていただきました。
VBAの初級本やネット検索をしながら少しづつ行っているのですが、中々上手く行きません。
初心者でも分かり易いコードをありがとうございました。
不快な思いをさせてしまい申し訳ございませんでした。

（しんちゃん） 2024/07/17(水) 16:34:32

気に入らない質問に文句を言ってる人（このスレだと「頭使え」氏）
って多分いつもいる常連の誰かでしょう
たいてい文句書いてあるときって見たことないニックネームでしょ？
んで文句言うだけで何の解決策も提示できない
本当に不愉快だからやめてほしいわ

管理人さん、IPアドレス表示とかしてこういった荒らしに近い
発言を減らせるようにしてほしい
（今回だけペンネーム変えるかw） 2024/07/18(木) 07:58:57

管理人さん、わたしもそう思います。（頭使え）には対応をしてほしいです。不愉快ですし、こういう人が相手の気持ちを考えずに人を傷つけていくんです。
（pochi） 2024/07/18(木) 08:21:30

いつも仕事前にここを見て、役に立つ情報があれば勝手に使用させてもらっております。
そんな中、ちょっとしたミスに揚げ足をとったり、今回みたいにエラそうな態度取ったりは
確かに見てて気持ちのいいものではありません。

まず皆さんの良心に訴えること、それでも変わらないなら
管理人さんに動いてもらいたいところです。
（かーくん） 2024/07/19(金) 07:58:57

コメント返信：

[ 一覧(最新更新順) ]

[[20240717113816]] 『VBA 他の列の値を入れたい』（しんちゃん） ページの最後に飛ぶ

の入ったセルの場所にH列の同じ位置のセル値をもってきたいのです。

[[20240717113816]]　『VBA　他の列の値を入れたい』（しんちゃん）　ページの最後に飛ぶ