web-dev-qa-db-ja.com

二重引用符または単一引用符を挿入する方法

引用符で囲む必要がある名前の長いリストがあり（二重引用符でも単一引用符でもかまいません）、約8,000個あります。引用符なしでExcelに保存しており、すべての名前をコピーして問題なく貼り付けることができますが、引用符はまだありません。各行の名前に引用符を追加するExcel式を探して探しましたが、運がありませんでした。また、いくつかの巧妙な検索と置換のテクニックも試しましたが、どちらも機能していません。私が探している形式はこれです：

「アレン」または「アレン」

それらのいずれも動作します。情報をデータベースに保存できるように、これが必要です。どんな助けも大歓迎です。ありがとう

PS：

私は他の人々がオンラインで私がしなければならない同じことを必要としていることを発見し、この解決策は彼らのために働いていますが、それで何が起こるかわかりません：

範囲変数（myCellなど）を使用して修正し、それを使用して、範囲オブジェクトの「選択」コレクションを繰り返します。

Sub AddQuote()
Dim myCell As Range
    For Each myCell In Selection
        If myCell.Value <> "" Then
            myCell.Value = Chr(34) & myCell.Value
        End If
    Next myCell
End Sub

他のユーザーにも有効な別のソリューションは次のとおりです。

Sub OneUglyExport()

Dim FileToSave, c As Range, OneBigOleString As String

FileToSave = Application.GetSaveAsFilename

Open FileToSave For Output As #1

For Each c In Selection

If Len(c.Text) <> 0 Then _

    OneBigOleString = OneBigOleString & ", " & Chr(34) & Trim(c.Text) & Chr(34)

Next

Print #1, Mid(OneBigOleString, 3, Len(OneBigOleString))

Close #1

End Sub
excelcsvexcel-vbaquotesvba
26
three3

引用符で囲まれていない値から新しい引用符で囲まれた値を作成するには

  • 列Aには名前が含まれています。
  • 次の式を列Bに入力します_= """" & A1 & """"_
  • 列Bをコピーして特殊貼り付け->値

カスタム関数を使用する

_Public Function Enquote(cell As Range, Optional quoteCharacter As String = """") As Variant
    Enquote = quoteCharacter & cell.value & quoteCharacter
End Function
_

=OfficePersonal.xls!Enquote(A1)

=OfficePersonal.xls!Enquote(A1, "'")

引用符で囲まれた永続的な文字列を取得するには、式の値と特殊値の貼り付けをコピーする必要があります。

39
AMissico

データが列Aにあると仮定して、列Bに数式を追加します

="'" & A1 & "'"

そして、式をコピーします。 CSVに保存すると、引用符で囲まれた値が取得されます。 Excel形式で保持する必要がある場合は、列Bをコピーし、値を貼り付けて式を削除します。

17
dendarii

簡単な手順：

  1. 引用符を追加するセルを強調表示します。
  2. フォーマット–>セル–>カスタムに移動します
  3. 次を[タイプ]フィールドにコピー/貼り付けます：\ "@ \"または\ '@ \'
  4. できた！
17
noobsee

引用する必要のあるセルにカスタム形式を使用しないのはなぜですか？

セル列にカスタム形式を設定すると、すべての値がその形式になります。

数字の場合....郵便番号のように...これは「＃」になります文字列テキストの場合、「@」になります

ファイルをcsv形式で保存すると、必要に応じてすべての引用符がセルデータをラップします。

7
Kevin Mansel

または、範囲を選択してセルを書式設定>カスタム\ "@ \"

6
spriteup

ExcelファイルをCSV形式のファイルとして保存すると、すべてのフィールドが引用されるかどうかはわかりませんが、結果をデータベースに挿入するのに便利であることがわかります。

0
Slartibartfast