- ベストアンサー
VBAで左端文字を削除
- みんなの回答 （2）
- 専門家の回答
質問者が選んだベストアンサー
こんばんは。 私も、#1 さんのご意見には賛成ですが、一応、VBAが回答の中心なので、以下にマクロの修正版と、一般的なコードを置いておきます。 Sub 削除() Dim i As Long For i = 1 To 1000 '行番号を変更 Cells(i, 1).Value = Mid$(Cells(i, 1).Value, 2) ' Next End Sub 'もう少し手を加えると ' ↓ Sub LeftCharDel() Dim c As Range For Each c In Range("A1:A1000") c.Value = Mid$(c.Value, 2) Next c End Sub たぶん、こんな風でよいはずですが……。
その他の回答 (1)
- yambejp
- ベストアンサー率51% (3827/7415)
「○株式会社あいうえお」がA1ならば B1に「=MID(A1,2,1000)」（後の1000は適当な大きい数） などとしてコピーペースト→コピー＆形式を選択して 貼り付け→値とすれば、よいのでは？ どうしてもマクロでやりたいなら方法はありますが。
お礼
yambejp 様早速のご回答ありがとうございました。 MID関数だったんですね。ありがとうございました。 大変お手数をとらせました。 今後ともよろしくお願いします。
関連するQ&A
- EXCELVBAで行の削除
WIN98SE EXCEL2000です。 G列に99の文字があったらその行を削除するというVBAを下記のように作りました。 Dim i As Integer Dim rowcount As Integer rowcount = Cells(1,1).CurrentRegion.Rows.Count For i = 1 To rowcount If Cells(i, 7) = "99" Then Rows(i).Delete Next i これを実行するとG列に99のある行が連続してあると1行おきに削除されます。どこをなおせばよいのか教えてください。よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- VBAで教えてください
こんにちは、VBAを作成したのですが、意図する動作にならず、ご教授お願いします。やりたいことは、2行目を検索して、"AB"を含む文字があったら、その行を削除するというものです。ですが、下記コードでは "AB"を含む文字がB列、C列と続けてあった場合、Ｃ列は削除してくれません。 思うに、最初のB列を削除したときに、左に列がSHIFTしてしまい検索にかからないのでは？と思っています。最初のB列を削除した後に、Columnの値を-1してあげればいいのかな？ と思うのですが、うまくコードが書けませんでした。どうぞよろしくお願いします Sub ab_sakujyo() Dim i As Integer For i = 1 To 50 If Cells(2, i).Value Like "*AB*" Then Columns(i).Delete End If Next End Sub
- ベストアンサー
- その他（プログラミング・開発）
- VBAでのfor文について
5行のデータがあるとして、先頭の文字がaで始まる行を削除して 上に詰めたいと考えています。 しかし、Range("i:i")のところに可変の数字iをうまく指定できて いないようで、うまく実行されません。 どこがまずいのでしょうか？ Sub sample() Dim i As Integer For i = 1 To 5 activeworksheet.Cells(i, 2) = Mid(Cells(i, 1), 1, 1) If Cells(i, 2) = "a" Then ActiveSheet.Range("i:i").Delete shift:=xlshiftUp End If Next End Sub
- ベストアンサー
- オフィス系ソフト
- EXCELの列複数削除
VB6.0で開発しています。 下のようにEXCELの列を複数削除していますが 思うように削除されません。 削除はされるのですが B列を削除してから次C列を削除となってしまっているので C列を削除する時は元々のC列ではなく B列を削除してからのC列を削除してしまいます。 どう直せばいいのでしょうか？ お願いします。 Private Sub Command2_Click() Dim xlApp As Excel.Application Dim xlBook As Excel.Workbook Dim xlSheet As Excel.Worksheet Dim B As Integer Dim C As Integer Dim D1 As Integer Dim E As Integer Dim G As Integer Dim H As Integer Dim K As Integer Dim L As Integer Dim M As Integer Dim N As Integer Dim P As Integer Dim R As Integer Dim T As Integer Dim U As Integer Dim V As Integer Dim Y As Integer Dim Z As Integer Dim AA As Integer Dim AB As Integer Dim AC As Integer Dim AD As Integer Dim AE As Integer Dim AF As Integer Dim AG As Integer Dim AH As Integer Dim AI As Integer Dim AJ As Integer Dim AL As Integer Dim AM As Integer Dim AP As Integer Dim AQ As Integer Dim AR As Integer Set xlApp = CreateObject("Excel.Application") Set xlBook = xlApp.Workbooks.Open("C:\Users\maki\Documents\Book1") Set xlSheet = xlBook.Worksheets("Sheet1") xlApp.Visible = True B = 2 C = 3 D1 = 4 E = 5 G = 7 H = 8 K = 11 L = 12 M = 13 N = 14 P = 16 R = 18 T = 20 U = 21 V = 22 Y = 25 Z = 26 AA = 27 AB = 28 AC = 29 AD = 30 AE = 31 AF = 32 AG = 33 AH = 34 AI = 35 AJ = 36 AL = 38 AM = 39 AP = 42 xlSheet.Cells(1, C).EntireColumn.Delete xlSheet.Cells(1, D1).EntireColumn.Delete xlSheet.Cells(1, E).EntireColumn.Delete xlSheet.Cells(1, G).EntireColumn.Delete xlSheet.Cells(1, H).EntireColumn.Delete xlSheet.Cells(1, K).EntireColumn.Delete xlSheet.Cells(1, M).EntireColumn.Delete xlSheet.Cells(1, N).EntireColumn.Delete xlSheet.Cells(1, P).EntireColumn.Delete xlSheet.Cells(1, R).EntireColumn.Delete xlSheet.Cells(1, T).EntireColumn.Delete xlSheet.Cells(1, U).EntireColumn.Delete xlSheet.Cells(1, V).EntireColumn.Delete xlSheet.Cells(1, Y).EntireColumn.Delete xlSheet.Cells(1, Z).EntireColumn.Delete xlSheet.Cells(1, AA).EntireColumn.Delete xlSheet.Cells(1, AB).EntireColumn.Delete xlSheet.Cells(1, AC).EntireColumn.Delete xlSheet.Cells(1, AD).EntireColumn.Delete xlSheet.Cells(1, AE).EntireColumn.Delete xlSheet.Cells(1, AF).EntireColumn.Delete xlSheet.Cells(1, AG).EntireColumn.Delete xlSheet.Cells(1, AH).EntireColumn.Delete xlSheet.Cells(1, AI).EntireColumn.Delete xlSheet.Cells(1, AJ).EntireColumn.Delete xlSheet.Cells(1, AL).EntireColumn.Delete xlSheet.Cells(1, AM).EntireColumn.Delete xlSheet.Cells(1, AP).EntireColumn.Delete Set xlApp = Nothing Set xlBook = Nothing Set xlSheet = Nothing End Sub
- ベストアンサー
- Visual Basic
- EXCEL VBA で，プログラムが動かない．
EXCEL2000のVBAでプログラムを組みました．(下に記す) 数千行に及ぶ数字のデータがあるのですが，20行に1回だけ，いらないデータが3行出てきます．その3行を削除していくプログラムです．Rangeのところで行を選んで欲しいのに，p列とq列を選んでしまうようです．RangeをRowsに変えたらエラーが出ました．こういう場合はどのように書けばいいのでしょうか．誰か教えてください．お願いします． Sub 削除() '20行ごとに入っている３行を削除していく． Dim i As Integer Dim p As Integer Dim q As Integer p = 21 'pの初期値は21 For i = 1 To 500 q = p + 2 r = "p:q" Range(r).Select Selection.Delete shift:=xlUp p = p + 20 Next i End Sub
- ベストアンサー
- オフィス系ソフト
- VBAで削除を早くしたいのですが…
Excel2007のVBAです。キー記録を眺めながら四苦八苦しております。 数千行あるデータで、A列が"d"以外の行を削除したいのですが PCスペックが低いせいか、時間がかかってしまいます。 簡単に効率化することは可能でしょうか？ よろしくお願いします。 ※1行目はタイトル列、全体行数は可変です。 Sub A05_A列がｄ以外は削除する() Application.ScreenUpdating = False Dim sh2 As Worksheet Set sh2 = Worksheets("削list") For i = Cells(Rows.Count, "C").End(xlUp).Row To 2 Step -1 If sh2.Cells(i, "A").Value <> "d" Then Rows(i).Delete End If Next Application.ScreenUpdating = True End Sub
- ベストアンサー
- Excel（エクセル）
- エクセルマクロ 複数特定文字を含む行以外の削除
M列にある特定の文字が含む行以外のものを削除するマクロを教えて下さい。 現在ネット検索で見つかったマクロを使用しています 【現在使用中のマクロ】 Sub Sample1() Dim i As Long For i = Cells(Rows.Count, "M").End(xlUp).Row To 2 Step -1 If InStr(Cells(i, "M"), "検索したい文字") = 0 Then Rows(i).Delete End If Next i End Sub これだと検索したい文字が1つしか利用できません。 「検索したい文字列1」または「検索したい文字列2」を含まない行を削除したいのですが どのようにマクロを組めばよいのでしょうか？ こちらまったくの初心者です。 上記の書式にはこだわりませんので、わかる方教えて下さい。
- ベストアンサー
- オフィス系ソフト
- VBAプロシージャの間違いを添削願います
A列からD列にかけてデータが入力されます。B列には4桁の数値が入力されており、 この4桁の数値を利用して、次のようにデータを管理したいと思います。 1.4桁の数値が同じものを抽出する。 2.抽出された数値は、最初に出現している数値の下の行に挿入する。 3.最初に出現している数値以外は削除する。 4.各行は空行が無い状態とする。 これをプロシージャにしたものが下記です。 Sub 重複行削除() Dim lastgyou As Integer Dim i As Integer Dim j As Integer Dim atai As Integer lastgyou = Range("B1").End(xlDown).Row For i = 1 To lastgyou - 1 atai = Cells(i, 2).Value For j = i + 1 To lastgyou If atai = Cells(j, 2).Value Then If j <> i + 1 Then Rows(j).Cut Rows(i + 1).Insert Shift:=xlDown End If i = i + 1 End If Next j Next i End Sub としましたが、重複行が削除されません。 ご教授をお願いいたします。
- 締切済み
- その他（プログラミング・開発）
- VBA ループ文
お手数ですが、回答お願いします。 ＶＢＡでループ文を勉強しております。 最初のfor 文で１０００行、１０００列に文字を入力、 次のdo 文でその文字を全部消したいのですが、うまくいきません。 またfor 文で１０００行、１０００列で文字を入力しているのですが、 時間がかかるのは仕方がないことなのでしょうか？ お手数ですが、ご教授お願いします。 Sub 文字入力() Dim i As long Dim t As long For i = 1 To 1000 For t = 1 To 1000 Cells(i, t) = "wooo" Next t Next i End Sub ================================================================= Sub 文字入力消し() Dim i As long Dim t As long i = 1 Do t = 1 Do Cells(i, t) = "" t = t + 1 Loop Until Cells(i, t) = "" i = i + 1 Loop Until Cells(i, t) = "" End Sub
- ベストアンサー
- Excel（エクセル）
- VBA 特定の文字列を含む行を削除する方法
特定の文字列を含む行を削除する方法が知りたいです。 行を削除する方法はWebで見つけたのですが↓ ---------------------------------------------------- Sub 特定の文字列を含む行を削除() Dim c As Range Dim myRow As Long With Range("A:A") Set c = .Find("特定の文字列") Do While Not c Is Nothing Rows(c.Row).Delete shift:=xlUp Set c = .Find("特定の文字列") Loop End With End Sub ---------------------------------------------------- ↑行を指定している箇所のRowsを Columns RowをColomn に変更して以下の様にしてみました、 Columns(Colomn,c).Delete shift:=xlUp だめでした、、、。 VBAの知識が乏しく、組み立て方について理解が無いため、どうすればよいかさっぱりわからず、、 こちらで質問させて頂きました。。。 何卒宜しくお願い致します。
- ベストアンサー
- オフィス系ソフト
お礼
Wendy02様 早速のご回答ありがとうございました。 他にも削除した文字があったのでどうしてもVBAで処理したかったのでとても助かりました。 「＄」も勉強になりました。1000行やったら速さが違いました。 今後ともよろしくお願いします