31

引用符で囲む必要のある名前の長いリストがあり（二重引用符または一重引用符にすることができます）、約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
4

6 に答える 6

44

引用符なしの値から新しい引用符付きの値を作成するには

  • 列 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, "'")

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

于 2010-06-30T02:21:25.223 に答える
23

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

="'" & A1 & "'"

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

于 2010-06-30T15:48:49.403 に答える
7

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

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

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

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

于 2012-09-18T16:28:59.977 に答える
0

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

于 2010-06-30T01:57:07.170 に答える