Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


20784 / 76732 ←次へ | 前へ→

【61360】Re:セル内から特定の文字を削除する(replace)
回答  Hirofumi  - 09/5/4(月) 9:23 -

引用なし
パスワード
   こんなのでも善いかも

Option Explicit

Public Sub Sample()

  Dim i As Long
  Dim lngRows As Long
  Dim rngList As Range
  Dim vntData As Variant
  Dim strProm As String
  
  '◆"県名"の在るセルを探しそれを基準とする(列見出しのセル位置)
  Set rngList = ActiveSheet.Cells.Find(What:="県名", LookIn:=xlValues, LookAt:=xlWhole)
  '該当セルが無ければ終了
  If rngList Is Nothing Then
    strProm = "該当セルが有りません"
    GoTo Wayout
  End If
  
  With rngList
    '行数の取得
    lngRows = .Offset(Rows.Count - .Row).End(xlUp).Row - .Row
    If lngRows <= 0 Then
      strProm = "データが有りません"
      GoTo Wayout
    End If
    '列データを配列に取得
    vntData = .Offset(1).Resize(lngRows + 1).Value
  End With
  
  '列に就いて繰り返し
  For i = 1 To lngRows
    '"県"を ""に置き換え
    vntData(i, 1) = Replace(vntData(i, 1), "県", "", , , vbBinaryCompare)
  Next i
  
  '画面更新を停止
  Application.ScreenUpdating = False
  
  '結果出力
  rngList.Offset(1).Resize(lngRows).Value = vntData
  
  strProm = "処理が完了しました"
   
Wayout:

  '画面更新を再開
  Application.ScreenUpdating = True
  
  Set rngList = Nothing
   
  MsgBox strProm, vbInformation
     
End Sub
1 hits

【61359】セル内から特定の文字を削除する(replace) Hoppy 09/5/4(月) 7:59 質問
【61360】Re:セル内から特定の文字を削除する(repl... Hirofumi 09/5/4(月) 9:23 回答
【61363】Re:セル内から特定の文字を削除する(repl... Hoppy 09/5/4(月) 13:58 お礼
【61361】Re:セル内から特定の文字を削除する(repl... かみちゃん 09/5/4(月) 9:38 発言
【61364】Re:セル内から特定の文字を削除する(repl... Hoppy 09/5/4(月) 14:13 お礼
【61378】Re:セル内から特定の文字を削除する(repl... Hoppy 09/5/5(火) 7:41 お礼
【61362】Re:セル内から特定の文字を削除する(repl... ゆみこん 09/5/4(月) 12:22 発言
【61365】Re:セル内から特定の文字を削除する(repl... Hoppy 09/5/4(月) 14:18 お礼
【61379】Re:セル内から特定の文字を削除する(repl... りん 09/5/5(火) 8:47 発言
【61397】Re:セル内から特定の文字を削除する(repl... Hoppy 09/5/5(火) 22:56 お礼

20784 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free