C200 C1の解決方法

質問者が納得sheet1のC列に空欄が出るまでシートコピーとIDのセットを繰り返します。Dim i As Integer i = 1Do While Sheets("Sheet1").Cells(i, 3).Value <> "" Sheets("Sheet2").Copy After:=Sheets(Sheets.Count) Sheets(Sheets.Count).Range("B2").Value = Sheets(&q...

質問者が納得For k = 1 To 200Sheets("Sheet" & Format(k + 2)).SelectRange("B2").Value = Sheets("Sheet1").Cells(k, 3).ValueNext kで，できるはずです。

質問者が納得=IF(SUM(A1:B1) = 0,"",SUM(A1:B1))では、だめでしょうか？

質問者が納得◆回答者の方の内容から１）名前ボックスに「A1:C200」と入力して、Enterを押します【図-1】２）A1:C200の範囲が指定されます【図-2】３）リボンの「ホーム」タブ→「配置」グループ→「セルを接合して中央揃え」▼をクリックして、「横方向に結合」を選択します【図-3】４）A1:C1の結合が、A200:C200まで結合されます【図-4】

質問者が納得コピーして、貼り付けたいセルで右クリック→形式を選択して貼り付け→値これで値のみを貼り付けることが出来ます。

質問者が納得１）グレード変換表を作成します２）各変換表に名前を付けます３）F2:G9の範囲を指定して、メニューバーの「挿入」→「名前」→「名前の定義」を選択します４）下の「参照範囲が「=$F$2:$G$6」になっているはずです５）上の「名前」の欄に「紙・油付着無」と入力します６）同様に「布・油付着無」「紙・油付着有」「布・油付着有」の名前もつけます７）グレードの式D2=IF(COUNTA(A2:C2)<3,"",VLOOKUP(C2,INDIRECT(A2&"・油付着&quo...

質問者が納得C2:C21選択してメニューのデータ→入力規則→設定→入力値の種類：ユーザー設定数式：=SUMPRODUCT(($B$2:B2&$C$2:C2=B2&"●")*1)=1→ＯＫ他の方法もあるマも知れませんがＤ２=B2&C2下方向にオートフィルB23=IF(ISERROR(MATCH(A23&"●",$D$2:$D$21,0)),"",OFFSET(A1,MATCH(A23&"●",$D$2:...