FinePix A500...
x
Gizport
  • Q&A

  • 取扱説明書・マニュアル (文書検索対応分のみ)

 
"勉強中"2 件の検索結果
全般
 
質問者が納得はじめたばかりみたいなので こんにちは。 Range("A1").Copy ’A1をコピー Range("A1000").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues 'A1000(ここはおそらくこれ以上登録しないだろうと思われる行数で良いと思います。1000は任意で変更して下さい) 'A1000から登録済み最終行まで行って、1段下げたところ(offset(1,0))に値のみ貼付け ...
4917日前view16
全般
 
質問者が納得1つ目の最後の文字がBの場合 Sub Macro1() Dim I As Long '変数を定義しただけです For I = 1 To 500 '1~500行まで繰り返す If Right(Cells(I, 1).Value, 1) = "B" Then 'A列のI行の値の最後の1文字が"B"ならば以下を実行、違えば次の行へ移動する Range(Cells(I, "A"), Cells(I, "Z")).Cut '対象の行のA~...
5010日前view17
  1. 1

この製品について質問する