よねさんのWordとExcelの小部屋 なんでも掲示板

HOME HELP 新規作成 新着記事 ツリー表示 トピック表示 検索 過去ログ

■13540 / 3階層)  表 データの入っているところだけ縦に取り出す
□投稿者/ よねさん -(2021/08/08(Sun) 08:35:13)
    2021/08/08(Sun) 08:36:59 編集(投稿者)
    > Range("Y" & cn).Value = c.Value
    > の所のを"Y4"と入れるとマクロが動きません。
    Y4セルから値を入力するのなら、cnの開始値を4となるようにcn=3として調整します。
    
    > 表示させるセル番号は実は"Y"という列番ではなく 例えば"Y4"とか先頭行も
    > 微妙にズレるので
    Range("Y" & cn).Value = c.Value としていますが、
    Cells(cn,"Y").Value = c.Value
    とした方がわかり易かったりしますか?Cells(行,列)となります。
    
    Sub test()
      Dim myRng As Range, cn As Long
      Dim c As Range
      Set myRng = Range("A1:G6") '値があるかを判断するセル範囲
      cn = 3 'cnの開始値を4とするため、ここでは3を設定します
        For Each c In myRng 'セル範囲を1個づつチェックします
            If c.Value <> "" Then 'セルの値が"" でない場合セルに値を入力します
                cn = cn + 1 'セルの値が""でない場合はcnの値をカウントアップします cn=4から始まります
                Range("Y" & cn).Value = c.Value 'Y列のcn行目に値を入力します
            End If
        Next c
    End Sub
    

記事引用 削除キー/

前の記事(元になった記事) 次の記事(この記事の返信)
←Re[2]: 表 データの入っているところだ.. /numa Mail →Re[4]: 表 データの入っているところだ.. /numa Mail
 
上記関連ツリー

Nomal 表 データの入っているところだけ縦に取.. / numa Mail (21/08/07(Sat) 15:14) #13537
Nomal Re[1]: 表 データの入っているところだ.. / よねさん (21/08/07(Sat) 16:20) #13538
  └Nomal Re[2]: 表 データの入っているところだ.. / numa Mail (21/08/07(Sat) 20:50) #13539
    └Nomal 表 データの入っているところだけ縦に取.. / よねさん (21/08/08(Sun) 08:35) #13540 ←Now
      └Nomal Re[4]: 表 データの入っているところだ.. / numa Mail (21/08/08(Sun) 10:27) #13541
        └Nomal Re[5]: 表 データの入っているところだ.. / よねさん (21/08/08(Sun) 12:01) #13542
          └Nomal Re[6]: 表 データの入っているところだ.. / numa Mail (21/08/08(Sun) 13:52) #13543
            └Nomal Re[7]: 表 データの入っているところだ.. / よねさん (21/08/08(Sun) 14:15) #13544
              └Nomal Re[8]: 表 データの入っているところだ.. / numa Mail (21/08/08(Sun) 15:03) #13545
                └Nomal Re[9]: 表 データの入っているところだ.. / よねさん (21/08/08(Sun) 15:10) #13546
                  └Nomal Re[10]: 表 データの入っているところだ.. / numa Mail (21/08/08(Sun) 15:25) #13547

All 上記ツリーを一括表示 / 上記ツリーをトピック表示
 
上記の記事へ返信

Pass/

HOME HELP 新規作成 新着記事 ツリー表示 トピック表示 検索 過去ログ

- Child Tree -