VBA

Quick Edit Pencil
Sub 棚卸しレイアウト図のゴンドラ分解()

    Dim ws04 As Worksheet
    Set ws04 = Worksheets("Sheet1")
    
    Dim tbl As Range
    
    Set tbl = ws04.Range("C1").CurrentRegion
    Debug.Print tbl.Count
    
    tbl.Select
    
    Dim i As Long: i = 1
    For Each c In tbl.Cells
        If Not c.Value = "" And IsNumeric(c.Value) And c.Value > 0 Then ws04.Cells(i, 1) = c.Value: i = i + 1
    Next
    
    Debug.Print i

End Sub

Sub テスト()

    Dim tbl As Range
    
    'Set tbl = ActiveCell.CurrentRegion
    'tbl.Select
    
    Set tbl = Selection
    
    Debug.Print tbl.Count

End Sub
売場案内DB.xls

このブログの人気の投稿

PowerShellのGetDetailsOf メソッドでプロパティの詳細情報のID番号と項目名を列挙します

Blender: 辺の長さを数値で指定するアドオン

書字方向 横書方向変換スクリプト 左書きから右書きへ(コピペ用途)

ヤバい!JAPANNEXT WQHD対応 27型ワイド液晶ディスプレイ「JN-IPS2716WQHD」を注文してみた!!!

決定版 Edgeでローカルファイルを開く パワーシェルスクリプト (ウインドウズでドロップレット)

PowerShellで複数ファイルのプロパティを取得する方法(準備編)

カルチャーラジオ 科学と人間 薬と毒の歴史をひも解く 日本薬科大学教授…船山信次

Windows10でアプリケーションごとに輝度を設定、自動で変更する - AutoHotkey