お世話になります。初心者です。vbaで一括で処理したいと考えています。 図のようなことを考えています。

画像

Visual Basic | Excel49閲覧xmlns="http://www.w3.org/2000/svg">25

ベストアンサー

0

ThanksImg質問者からのお礼コメント

ありがとうございました! 勉強になりました。

お礼日時:4/11 17:56

その他の回答(2件)

0

◆VBAではありませんが、参考にしてください 1)E5:I9の範囲を指定して、【図-1】 2)「Ctrl+G」または「F5」を押して、「ジャンプのダイアログボックス」の、下の「セル選択」をクリックして、 3)選択オプションの「空白セル」にチェックして、OK【図-1】 4)アクティブセル(E5)にその左のセル(D5)、E5=D5 と入れて、【図-1】 5)Ctrl+Enterを押します【図-1】 6)そのままの範囲で、Ctrl+1(ぬ)を押して、表示形式をユーザー定義で、0;; とします【図-2】

画像
0

Sub Test() Dim MyCol As Long, MyRow As Long For MyRow = 5 To 10 For MyCol = 5 To 10 If Cells(MyRow, MyCol).Value <> "" Then Range(Cells(MyRow, MyCol), Cells(MyRow, "J")).Value = Cells(MyRow, MyCol).Value Exit For End If Next Next End Sub でいかがですか。