Excel VBA 質問スレ Part67at TECHExcel VBA 質問スレ Part67 - 暇つぶし2ch■コピペモード□スレを通常表示□オプションモード□このｽﾚｯﾄﾞのURL■項目テキスト200:157 20/07/04 14:58:18.35 oup49XFx0.net >>186 仮の配列を作り、編集してaryに入れるようにしたいのですが これだと、全て空欄になってしまいます Dim i As Long, j As Long, cnt As Long, cnt2 As Long i = Cells(Rows.Count, 1).End(xlUp).Row '仮の配列 ReDim Kariary(i, 30) As Variant Kariary = Range("A2:AD" & i).Value '最終的に代入する配列 ReDim ary(i - 1, 30) As Variant For cnt = 1 To i - 1 If Not Kariary(cnt, 1) = 66 Or _ Kariary(cnt, 6) = 1000 Or _ Kariary(cnt, 28) = "" Then j = UBound(ary) + 1 If j < i - 1 Then For cnt2 = 1 To 30 ReDim Preserve ary(j, 30) As Variant ary(j, cnt2) = Kariary(cnt, cnt2) Next cnt2 End If End If Next cnt 'シートを一旦クリア Cells.Clear Range("A2:AD" & i) = ary 201:デフォルトの名無しさん 20/07/04 15:04:44.69 xhESn47nr.net はい 202:デフォルトの名無しさん (ｱｳｱｳｴｰ Sa82-h0J+) 20/07/04 15:22:36 ZKMg5qK7a.net >>198 地デジのようなリアルタイムデコードじゃなくて 過去に既に起こってしまったデータ欠損の過ちをVBA で穴埋めしようとしたたところで土台遅いと言う話でした。 >>199 そうですね 次ページ最新レス表示レスジャンプ類似スレ一覧スレッドの検索話題のニュースおまかせリストオプションしおりを挟むスレッドに書込スレッドの一覧暇つぶし2ch