Excel VBA 質問スレ Part67

[1 デフォルトの名無しさん (ﾜｯﾁｮｲ 33da-3+hg) 2020/06/26(金) 02:01:29.56 ID:uDfmpksE0]

!extend:checked:vvvvv:1000:512
↑同じ内容を2行貼り付ける

ExcelのVBAに関する質問スレです
コード書き込みや作成依頼もOK

※前スレ
Excel VBA 質問スレ Part66
https://mevius.5ch.net/test/read.cgi/tech/1589085825/

---

VIPQ2_EXTDAT: checked:vvvvv:1000:512:: EXT was configured

[834 デフォルトの名無しさん (ﾜｯﾁｮｲ 0101-vCTi) 2020/08/11(火) 07:15:12.76 ID:MYNVwvse0]

悪いけどこの程度のこと質問するようじゃ手でやったほうが早いと思う
該当セルを全部選択して右クリックから値のクリア

[835 デフォルトの名無しさん (ﾜｯﾁｮｲ 895f-gCeJ) 2020/08/11(火) 07:29:46.25 ID:QzKTaZ840]

>>834
それをマクロの記録で記録するのが一番楽だわな

[836 デフォルトの名無しさん (ﾜｯﾁｮｲ 0101-zaql) 2020/08/11(火) 09:13:15.51 ID:MYNVwvse0]

>>835
この程度なら、毎回やるにしてもマクロ使わずに手でやって余裕でできるレベルだろ

[837 デフォルトの名無しさん (ﾜｯﾁｮｲ 9b02-e++8) 2020/08/11(火) 09:43:23.03 ID:Y2BcIsaJ0]

できるかできないかじゃないのがわからない奴

[838 デフォルトの名無しさん (ｱｳｱｳｳｰ Sa55-g1pd) 2020/08/11(火) 10:26:55.02 ID:XBdR516ja]

>>828
きったないコードの書き方になるが
Din i as Long
For i =1 to 最後の数
Range(”A” & i).以下略
Next i
で簡素化

[839 デフォルトの名無しさん (ﾜｯﾁｮｲ 297c-2X+j) 2020/08/11(火) 12:32:13.53 ID:Tr96IgUh0]

range("a1:最後").value=emptyじゃだめなのか

[840 デフォルトの名無しさん (ﾜｯﾁｮｲ 9b90-e++8) 2020/08/11(火) 12:34:29.17 ID:LWJewwPf0]

>>828
Dim i 　　　As Long
Dim lngMaxRow As Long

'/// 最終行取得
lngMaxRow = ActiveSheet.Range("A65000").End(xlUp).Row

'/// ループ処理
For i = 1 To lngMaxRow
ActiveSheet.Range("A" & i).MergeArea.ClearContents
Next i

[841 デフォルトの名無しさん (ｽﾌﾟｯｯ Sda3-IIsV) 2020/08/11(火) 14:42:39.58 ID:GML8Ehqkd]

.Clear と .ClearContents と .Value=Empty の違いがわからん
これをマウスやキーボードで再現する方法も
たとえばセルを選択してDeleteキーはどれに相当？

[842 デフォルトの名無しさん (ﾜｯﾁｮｲ 1302-2X+j) 2020/08/11(火) 15:03:15.53 ID:3p+RdAeo0]

Clearはセルに入力されてる数式や値、そして設定されてる書式もすべて消す
.ClearContents は数式と値のみクリア、書式は残る
.Value=Emptyはニュアンスが逆で"何も無いを入力"、つまり消す。.ClearContentsと同じ

deleteキーは.ClearContentsや.Value=Emptyと同じ

[843 デフォルトの名無しさん (ﾌﾞｰｲﾓ MM85-HICl) 2020/08/11(火) 15:15:55.64 ID:KT452e/aM]

不規則な結合セルがあると .MergeArea.ClearContentsはエラーになるけど .Value = Emptyなら動くから>>828はRange("A:A").Value = Emptyの一行で解決ってこと

[844 デフォルトの名無しさん (ﾜｯﾁｮｲ 9bf7-ADi0) 2020/08/11(火) 15:48:36.99 ID:QMl7gTyj0]

foreachやればええやん