エクセルで教えていただきたいです

質問

いくつか教えてください。会社でソフト作成のためのデータベース作成でエクセルを使っています。

1.現在全角で文字や数字が書かれているのを半角にするには該当セルを=ASC()でやればいいらしいのですがその通りにやってもうまくいきません。原因はなにが考えられますか？新しいシートでやるとできますが、会社のエクセルフォーマットだとできません。

2.例えば、　　　教えてgoo
　　　　　　　　　　okwave
　　　　　　　　　yahoo知恵袋
とセルが縦ならびに文章が記入されているとします。１００００セルぐらい。
教えてgooとokwaveの間のセルに教えてgoo最高！というセルを追加するとすれば簡単な方法はありますか？今まではセルを挿入して文章を記入していたのですがめんどくさいです。
教えてください。こんな感じ↓

　　　　　　　　　　教えてgoo
　　　　　　　　教えてgoo最高！
　　　　　　　　　　okwave
　　　　　　　　　yahoo知恵袋

回答No.3

MackyNo1 · ベストアンサー

＞例えば=ASC(A2)という感じでそのまま表示されてしまいます。

セルの書式設定で表示形式が「文字列」になっているパターンです。

そのセルを右クリックして「セルの書式設定」から「標準」などに変更してください。

なお表示形式が「標準」のセルなのに数式が表示される場合は、Alt+T、Oのショートカット操作でExcelのオプション画面を表示し、「詳細設定」の「次のシートで保存するときの表示設定」で「計算結果の代わりに数式をセルに表示する」のチェックを外してください（Excel2003以前なら表示タブで「数式」のチェックを外す）。

＃Officeソフトはバージョンによって使用できる機能や操作方法が大きく異なりますので、質問の際には必ずバージョンを明記するようにしましょう。

お礼

みなさんありがとうございます。

回答No.2

MackyNo1

>半角にするには該当セルを=ASC()でやればいいらしいのですがその通りにやってもうまくいきません。

通常は全く問題なく半角変換できるはずですが、具体的にどのようにうまくいかないのでしょうか？

＞教えてgooとokwaveの間のセルに教えてというセルを追加するとすれば簡単な方法はありますか？

実際に行う操作によって最も簡便な方法が異なります。
挿入するセル（「goo最高！」と入力されたセル）がどこかにあるなら、Shiftキーを押しながらドラッグする方法が最も簡単です。
セルが離れているなら、そのセルを右クリックから「コピー」（またはCtrl+C）後に、挿入位置で、右クリック「コピーしたセルの挿入」を行います。

単純にデータを追加するという意味なら、右クリック「挿入」でセルの挿入で対応るしかありませんが、キーボード操作で行うならAlt+I（Excel2007以降のバージョンなら、さらにE）のショートカットでEnterするのが簡単かも知れません。

お礼

ありがとうございます。
例えば=ASC(A2)という感じでそのまま表示されてしまいます。正解なら半角に変換された文字が出ると思うのですが。。。

回答No.1

tom04

こんばんは！
VBAになってしまいますが・・・
一例です。

いずれの方法も、画面左下の操作したいSheet見出し上で右クリック　→　コードの表示
→　VBE画面が出ますので↓のコードをコピー＆ペーストしてマクロを実行してみてください。
（Ali＋F8キー　→　マクロ　→　マクロ実行です）

（1）の方法
（質問では範囲がはっきりしないので、とりあえず範囲指定して行う方法にしてみました）

Sub test() 'この行から
Dim c As Range
Application.ScreenUpdating = False
For Each c In Selection
c = StrConv(c, vbNarrow)
Next c
Application.ScreenUpdating = True
End Sub 'この行まで

（2）の方法
（A列にデータがあるとしています。）

Sub test2()
Dim i As Long
Application.ScreenUpdating = False
For i = Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -1
If Cells(i, 1) = "okwave" And Cells(i - 1, 1) = "教えてgoo" Then
Cells(i, 1).Insert (xlDown)
Cells(i, 1) = Cells(i - 1, 1) & "最高"
End If
Next i
Application.ScreenUpdating = True
End Sub

※　（1）は必ず範囲指定した後にマクロを実行してください。
※　一旦マクロを実行すると元に戻せませんので、別Sheetでマクロを試してくみてください。

参考になりますかね？m(_ _)m

お礼

ありがとうございました。やってみます。