セルの範囲を調べる[たとえば、C1:E5]セルに値が含まれている場合[行4]セルを追加する[say B6 ]をセルのデータとそれに対応する行データと比較します。働いセルの範囲をチェックし、対応する列のデータをセルに追加する
0
A
答えて
1
Sub Demo()
Dim str As String
str = ""
For Each cel In Range("C1:E5")
If Not IsEmpty(cel) Then
If str = "" Then
str = Range("B" & cel.Row) & "=" & cel.Value
Else
str = str & ", " & Range("B" & cel.Row) & "=" & cel.Value
End If
End If
Next
If str <> "" Then Range("B6") = str
End Sub
1
Sub test()
Dim rng As Range
Dim tmp As String
Set rng = Range("C1:E5")
For Each cell In rng
If cell.Value <> "" Then
tmp = tmp + " " + Cells(cell.Row, 2).Value + " = " + cell.Value
End If
Next cell
Range("B6").Value = tmp
End Sub
+0
10Q!!! – Ash
関連する問題
- 1. VBA参照セルの範囲をループして範囲を追加
- 2. セルの範囲にセルの値をコピー
- 3. セル範囲をループする
- 4. セル値に基づいて名前付き範囲に列を追加する
- 5. 範囲から範囲内のセルを、別のセルのテキスト値である範囲にコピーする
- 6. セルの範囲をスクリプトにコピーする
- 7. セルに範囲を格納するVBA
- 8. 範囲内のセルをクリア
- 9. セルとセルの範囲を比較する
- 10. SQL Update:セルにデータを追加する
- 11. 他のセル範囲内のセル範囲を検索するための式を計算する
- 12. PHPExcelはセルの範囲のデータを検証します
- 13. phpexcelでセル範囲を設定する
- 14. VBA Listobjectsセル範囲
- 15. ユーザーと各セルに対応する重複セルをマージする
- 16. セルの範囲を別のワークブックのセルの別の範囲と同じにする
- 17. 列の範囲をセルの値で更新する
- 18. VBA - 範囲セル内の文字列を削除する方法
- 19. セルの設定範囲
- 20. 特定の列の空白セルのセルの特定の範囲をクリアするためにマクロをクリアする
- 21. 特定の日付に対応するセルの範囲の最小値を見つける
- 22. 範囲内のマージされたセルにのみ隣接セルをマージする
- 23. 範囲データ型を決定するVBA式の範囲内の空白セルを無視する
- 24. 範囲内の空のセルを無視してデータをコピーする
- 25. 応答後に表のセルにダブルクリックハンドラを追加する
- 26. 文字列のサイズに基づいて範囲内のセルを整列する
- 27. 他のセルにあるオプションに対応するExcelセルの値を検索
- 28. ExcelのVBAでセルの範囲から列xのセルを取得
- 29. 選択した範囲内のデータを含むセルをカラー化する
- 30. ブートストラップの範囲:ブートストラップの範囲を追加するには?
10Q !,それは完璧に動作しました! – Ash
@Ash - あなたは大歓迎です。 – Mrig