Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


73443 / 76738 ←次へ | 前へ→

【7770】Re:複数のセルの値を別のセルに…
回答  Kein  - 03/9/17(水) 15:20 -

引用なし
パスワード
   1行目を項目にしていれば、フィルターで簡単に☆を抽出できますが、項目を入れる
のが面倒なので

Sub Test()
  Dim MyR As Range, C As Range
  Dim St As String

  Set MyR = Range("A1", Range("A65536").End(xlUp)) _
  .Offset(, 1).SpecialCells(2, 2)
  For Each C In MyR
   St = St & C.Offset(, -1).Value
  Next
  Range("C1").Value = St
  Set MyR = Nothing
End Sub

もし☆が数式の計算結果であるなら SpecialCells(2, 2)→SpecialCells(3, 2)
と、して下さい。

0 hits

【7768】複数のセルの値を別のセルに… はむち 03/9/17(水) 15:07 質問
【7769】Re:複数のセルの値を別のセルに… つん 03/9/17(水) 15:19 回答
【7770】Re:複数のセルの値を別のセルに… Kein 03/9/17(水) 15:20 回答
【7776】Re:複数のセルの値を別のセルに… ichinose 03/9/17(水) 20:01 発言
【7780】Re:複数のセルの値を別のセルに… はむち 03/9/18(木) 9:31 お礼

73443 / 76738 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free