Ｐａｇｅ 528 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼行の中のデータを削除するには けんけん 03/1/10(金) 16:00 ┗Re:行の中のデータを削除するには つん 03/1/10(金) 16:38 ┗Re:行の中のデータを削除するには Jaka 03/1/10(金) 17:08 ┗Re:行の中のデータを削除するには Jaka 03/1/10(金) 17:22 ┗Re:行の中のデータを削除するには けんけん 03/1/10(金) 18:26 ─────────────────────────────────────── ■題名 ： 行の中のデータを削除するには ■名前 ： けんけん <ks1955@mail.goo.ne.jp> ■日付 ： 03/1/10(金) 16:00 -------------------------------------------------------------------------
| 行には不規則にデータがあって、その中の不必要なデータを削除し左に詰めるには どうすればよいでしょうか？ 例） Ａ Ｂ Ｃ Ｄ Ｅ Ｆ １ あ １ ３ ４ ２ い ６ ７ ３ う ９ １０ １１ １２ １３ ４ え １４ １７ １９ セルＣ３の１０を削除し詰めて、下のようにしたいのですが。 Ａ Ｂ Ｃ Ｄ Ｅ Ｆ １ あ １ ３ ４ ２ い ６ ７ ３ う ９ １１ １２ １３ ４ え １４ １７ １９ |
| こんにちは こうかな？ Range("c3").Delete xlShiftToLeft |
| けんけんさん こんにちは。 つんさん、横からおひさしぶりでございます。 お元気ですか？ Sub moko() Dim CC As Variant, SaveSaj As String, N As Long, TB() As Range, i As Long Set CC = ActiveSheet.UsedRange.Find(What:="10", After:=Range("A1"), LookAt:=xlWhole, MatchCase:=True) SAVSAj = CC.Address If Not CC Is Nothing Then Do N = N + 1 ReDim Preserve TB(1 To N) Set TB(N) = CC Set CC = ActiveSheet.UsedRange.FindNext(CC) Loop Until SAVSAj = CC.Address For i = 1 To UBound(TB) TB(i).Delete Shift:=xlToLeft Next End If Set CC = Nothing Erase TB End Sub |
| すみません。 直してください。 > SAVSAj = CC.Address > If Not CC Is Nothing Then > Do ↓ > If Not CC Is Nothing Then > SAVSAj = CC.Address > Do |
| つんさん、Jakaさんありがとうごさいました。 お陰様で解決いたしました。 |