CT-1 方法いつもお世話の解決方法

質問者が納得まずい箇所は２点あり、まず Cells(文数ct, 1).Value では時間はシリアル値になるので : は含まれません(^^；Cells(文数ct, 1).Text にすればいけると思います。次に Like ":" では 完全一致 なので 部分一致の Like "*:*"にすれば抜き出せると思います。