No.5
- 回答日時:
VBAの書き方は、常に、数通りあります。
その一例です。
Private Sub CommandButton1_Click()
Dim I As Integer
Cells(1, 8) = ""
For I = 7 To 1 Step -1
If Len(Cells(1, I) & "") > 0 Then
Cells(1, 8) = Cells(1, I)
Exit For
End If
Next I
End Sub
※Trim関数が必要か否かは質問者で判断して下さい。
No.4
- 回答日時:
順を追ってプログラムしていけば難しくありません。
----
Sub mSPCheck()
Dim i As Long
'A1~G1まで繰り返し
For i = 1 To 7
'空白チェック
If Len(Trim$(Cells(1, i).Value)) = 0 Then
'空白ならループを抜ける
Exit For
End If
Next
'ループ条件が空白かどうかチェック
'i = 8はForループの条件で抜けた場合
If i < 8 Then
'空白なら値をH1に設定
Cells(1, 8).Value = Cells(1, i - 1).Value
End If
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセルの関数式を教えてください。 2 2022/11/29 21:09
- Excel(エクセル) 【EXCEL】空白でないセルの位置を検索したい 3 2022/04/26 22:03
- Excel(エクセル) エクセルの昇順での数値入力のミスの見つけ方を教えてください。 4 2022/06/26 20:41
- Excel(エクセル) エクセル表作成について 5 2023/03/12 13:25
- Excel(エクセル) Excel 特定セルの数値を参照したセルの0表示が空白にならないのはどうしてか? 3 2022/04/28 22:23
- Excel(エクセル) Excelにの以下の設定方法について教えてください! C列にデータ入力の設定をしています。(出、入を 3 2022/06/22 01:33
- Excel(エクセル) Excel 関数 数式 について 2 2022/09/02 21:45
- Excel(エクセル) Excelについて A1からA12まで、1月〜12月と入力し、 B1からB12の範囲に、C1とD1に 4 2022/05/26 22:48
- Excel(エクセル) セルの上書き禁止について 5 2022/04/02 10:09
- Excel(エクセル) エクセルの散布図で新たに入力した値のデータラベルが空欄になる現象 1 2022/04/26 09:31
このQ&Aを見た人はこんなQ&Aも見ています
-
外出時に「待たせる妻」vs イライラする「待つ夫」は日本だけ?見習いたい海外事情
夫の家事参加に積極的なイメージのある海外でも、同様の事例はあるのか。結婚カウンセラーの佐竹悦子さんに伺ってみた。
-
Excel-参照セルが空白の場合、別のセルを参照するには。
Excel(エクセル)
-
エクセル もし、セルが空欄なら、その上のセルの値を入力する
Excel(エクセル)
-
エクセル 空白を飛ばして前の数字と同じ数字を入力する数式
Excel(エクセル)
-
-
4
セルが空だったら一つ上のセルを自動入力したいです
Excel(エクセル)
-
5
エクセルで、列の空欄に隣の列の数値を入れたい
Excel(エクセル)
-
6
[エクセル] セルが空だったら一つ上のセルを自動入力する
Excel(エクセル)
-
7
【エクセル】範囲内の空白ではない一番下のセル
Excel(エクセル)
-
8
エクセルでの空白を無視した引算の方法
Excel(エクセル)
-
9
エクセルで上の行の値を自動的にコピーする
Excel(エクセル)
-
10
エクセルの質問。 対象範囲の中で、一番下に位置する値を返す関数。
Excel(エクセル)
-
11
エクセルで空白を無視して一番左にあるセルを参照したい
Excel(エクセル)
-
12
excelで、空白を除いてデータを抽出する方法について
Excel(エクセル)
-
13
エクセルで空白セルを含む列の最終行の値を取得する式を教えてください
Excel(エクセル)
-
14
Excelで重複データの件数ではなく、何番目かを求める方法
Excel(エクセル)
-
15
エクセルでエラーが出て困っています。
Excel(エクセル)
-
16
空白セル内の数式を残したままで空白セル扱いとしたいのですが
Excel(エクセル)
-
17
空白でないセルの値を返す方法について
PowerPoint(パワーポイント)
-
18
エクセル関数
Excel(エクセル)
-
19
値が入っている一番右のセル位置を返す方法
Excel(エクセル)
-
20
Excelでセル参照したとき、書式も一緒に持ってくるには?
Windows Vista・XP
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBAマクロ実行時エラーの修正に...
-
特定の色のついたセルを削除
-
EXCEL VBA 文中の書式ごと複写...
-
VBA にて、条件付き書式で背景...
-
Excel VBA でFunctionプロシジ...
-
関数の引数でrangeを指定したとき
-
データのある範囲を選択するVBA...
-
エクセルVBA 配列からセルに「...
-
エクセルの合計を自動で表示さ...
-
【Excel VBA】一番右端セルまで...
-
VBA:日付を配列に入れ別セルに...
-
VBAでユーザーフォームにセル値...
-
SPREAD.netで選択セルの合計を...
-
マクロ初心者です。 マクロで範...
-
[Excel VBA] このコードでは行...
-
VBA 複数条件の分岐処理の上手...
-
DataGridViewで指定したセルの...
-
下記のマクロの説明(意味)を...
-
Excel VBA IF文がうまく動作し...
-
EXCEL 2010 VBAでピボットで複...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VBAマクロ実行時エラーの修正に...
-
エクセルVBA 配列からセルに「...
-
VBA 複数条件の分岐処理の上手...
-
Excelで空白セル直前のセルデー...
-
Excel UserForm の表示位置
-
EXCEL VBA 文中の書式ごと複写...
-
特定の色のついたセルを削除
-
VBA にて、条件付き書式で背景...
-
VBAでユーザーフォームにセル値...
-
【VBA】写真の貼り付けコードが...
-
【Excel VBA】一番右端セルまで...
-
Excel VBAでCheckboxの名前を変...
-
エクセルの合計を自動で表示さ...
-
【VBA】【ユーザーフォーム_Lis...
-
VBA:日付を配列に入れ別セルに...
-
Excel VBA IF文がうまく動作し...
-
入力規則のリスト選択
-
下記のマクロの説明(意味)を...
-
C# DataGridViewで複数選択した...
-
関数の引数でrangeを指定したとき
おすすめ情報