FinePix J10 セルの解決方法

質問者が納得=IF(SUMPRODUCT(G10:G12*J10:J12)/3>150,"A",IF(SUMPRODUCT(G10:G12*J10:J12)/3>50,"B","C")) 三回修正--;

質問者が納得Book1で選択された範囲をBook2のアクティブなシートの同じセル位置にコピーするコード例です。 Sub コード例() Dim sh2 As Worksheet, rng As Range Workbooks("Book2.xls").Activate Set sh2 = ActiveSheet Workbooks("Book1.xls").Activate For Each rng In Selection rng.Copy sh2.Range(rng.Ad...

質問者が納得別シートで、同一セルの場合なら「串刺し計算」を検索してみてください。

質問者が納得先ほど回答しようとしたら、質問を削除されてしまいました！ 一生懸命考えた結果でしたので、再質問があるかな？と思い保存しておきました。 そしたら、内容がちょっと変わったのでしょうか？ もう一度、今回の質問内容を読み直して、新たに考えるのもしんどいです。 ですから、先ほどの内容 ----D------ E---- F----G---- H-- I---- -J--- K---- ---L--- M １-積載重量--15Ｋ箱-15---10Ｋ箱-10--5Ｋ箱--5----5Ｋ箱以下-3 ２--------...

質問者が納得＿＿Ａ＿＿＿Ｂ＿＿＿＿Ｃ＿＿＿＿Ｄ＿＿＿Ｅ＿＿＿＿Ｆ＿＿＿＿Ｇ＿＿＿＿Ｈ＿＿＿＿Ｉ 1 2＿送り主＿発送先＿商品名 3＿ああ＿＿○○＿＿ＥＥＥ 4 5 6 7 8 9 10＿名前＿郵便番号＿住所＿住所＿ｱﾊﾟｰﾄ名等＿電話番号＿発送方法＿時間指定＿商品名 11＿ああ＿123-4567＿○○＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿ＡＡＡ 12＿いい＿456-7890＿××＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿ＢＢＢ 13＿ああ＿123-4567＿○○＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿...

質問者が納得エクセル2007は手元にないのですが Range("B11:H700").Select Selection.Copy のところを、下記のようにしたら動かないでしょうか？ Range("B11:H700").SpecialCells(xlCellTypeVisible).Select Selection.Copy 追記： 上記はマクロ記録をとった結果です。 オートフィルターをかけたあと Range("B11:H700")を選択して、 Ｆ５　セル選択...

質問者が納得I1: =IF(A1="赤",H1,"") J1: =IF(A1="青",H1,"") K1： =IF(A1="黄",H1,"") このセルを下方向にオートフィル 各列をSUM関数で合計を求めてみては・・・ または =SUMIF(A1:A10,"赤",H1:H10) 範囲及び””内は変更

質問者が納得作業用のシートを使ってもいいのであれば可能だと思います。 例えばA1:J10の100セルのうちバラバラ10セルに文字が入っているシートが "Sheet1"、作業用に使ってもいいシートが "Sheet2"だとします。 １）Sheet2のA1セルに「=ROW(B1)-COUNTIF($B$1:B1,"")」と入力します。 ２）Sheet2のB1セルに「=IF(OFFSET(Sheet1!$A$1,INT((ROW(B1)-1)/10),MOD(ROW...

質問者が納得御質問文に忠実に２つのセル範囲を指定してから実行するように作成してみました。 （ただし、一致しない部分の色は xlColorIndexNone とするよう、勝手に処理を加えています。） 参考になさってみてください。 Sub Sample() Dim R As Range If Selection.Areas.Count <> 2 Then MsgBox ("２つの範囲を選択してから実行してください") Exit Sub End If If Selection....