他のシートから引用した数字で表計算（かける）する方法

Question

|列3|
|:--|:--:|--:|
||||```ここに言語を入力
Dim 最終行② As Long '**の最終行を取得
Dim i As Long 'Sheet1の2行目～最終行を取得
Dim j As Long '**の2行目～最終行を取得

Dim ws As Worksheet
Dim mySheet As Worksheet

Set mySheet = ActiveSheet
Set ws = Worksheets(4)
'MsgBox ws.Name + "を取得しました。"

mySheet.Columns("F").Hidden = True
mySheet.Columns("H").Hidden = True
mySheet.Columns("J").Hidden = True

最終行① = mySheet.Cells(mySheet.Rows.Count, 1).End(xlUp).Row 'Sheet1の最終行を取得
最終行② = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row '**の最終行取得

mySheet.Range(mySheet.Range("K2"), mySheet.Cells(最終行①, 33)).ClearContents 'Sheet1の数量を一旦削除

For i = 2 To 最終行①
For j = 2 To 最終行②
mySheet.Cells(i, 11).Value = mySheet.Cells(i, 5).Value * Cells(j, 5).Value '単価*数量

Next

End Sub

同じを表をシート毎コピーを行い、片方のシートを削除してから
再度、単価*数量の式を入れて数字を反映させたい
片方のシートは数量のみでベースとなります
### 該当のソースコード



```ここに言語名を入力
For i = 2 To 最終行①
 For j = 2 To 最終行②　（→　このやり方に疑問ありますが、正しい方法が分かりません）
 mySheet.Cells(i, 11).Value = mySheet.Cells(i, 5).Value * Cells(j, 5).Value '単価*数量

上記ですと　NEXT が足りないので当然ほぼループ状態
何か　いい計算があればとおもったのですが見つからず

### 補足情報（FW/ツールのバージョンなど）


![イメージ説明](d0e0d3f8a6233a0362ceba1cfafd8a2c.png)
ご足労をおかけいたしまして申し訳ございません
今回使用している表のイメージに数量を記入しました
これと同じレイアウトの表が別にあります
K列以降の数が数量を表しています
今回質問させていただきましたのはこの表を用いて
一度、数を削除してから
ここにある単価と別表の数量や工数と掛け合わせたいと考えています
単純なイメージですが
別表（この表とおなじなのでここには添付していませんが）の数量（Ｋ、2）の1000と　単価（E、2）　600をかけた600000の値を
このシート上の（Ｋ、2）に反映させていき、引き続き右の最終列下の最終行まで計算結果を出していきたいと考えております

黄色のハッチング部分は使わないので隠すよう設定しました

因みにこの後は　各行の最後尾に合計を加える予定です

このような拙い説明で恐縮ですが問題ありませんでしょうか
よろしくお願いいたします

Comments

[jinoji]

mySheetのレイアウトはどうなってますか？
E列が単価でF列が数量とか？

[jinoji]

画像を拝見しましたが、数量が見つけられませんでした。

Answer 1

こんな感じでどうでしょうか。

Sub sample()

    Dim mySheet As Worksheet
    Dim ws As Worksheet
    
    Set mySheet = ActiveSheet
    Set ws = Worksheets(4)
    'MsgBox ws.Name + "を取得しました。"
 
    mySheet.Columns("F").Hidden = True
    mySheet.Columns("H").Hidden = True
    mySheet.Columns("J").Hidden = True

    Dim 最終行 As Long
    最終行 = mySheet.Cells(mySheet.Rows.Count, 1).End(xlUp).Row
    
    Dim 最終列 As Long
    最終列 = mySheet.Cells(1, mySheet.Columns.Count).End(xlToLeft).Column

    Dim i, j
    For i = 2 To 最終行
        For j = 11 To 最終列
            mySheet.Cells(i, j).Value = mySheet.Cells(i, 5).Value * ws.Cells(i, j).Value '単価*数量
        Next j
    Next i

End Sub

Comments

[TARA91PS254]

ありがとうございます。とても助かりました。しかし、上記のプログラムを当てても思い通りの
結果になりませんでした。検証中ですが、おそらく、数量が記載された別のシート（Worksheets(4))
の数量を表しているws.Cells(i, j)のi, jの変数がmysheetと被っているからと推察していますが、解決方法が見いだせていません。　この推察があっているかご指摘よろしくお願いいたします

追記
すいません　自分の情報伝達が間違っていたと思いますが、別のシート（Worksheets(4))には添付ファイルにあるE～J列はありません　これも原因かもしれません。

再追記　たびたびですいません　やはり、自分の情報伝達が間違でした。別シート（Worksheets(4))には添付ファイルにあるE～J列がないことが思い通りの結果が出ない原因でした　対策として
ws.Cells(i, j)　を　ws.Cells(i, j-6)　とすることで解決できたように思いますが合っていますでしょうか
もし、そこだけご教示いただければ助かります

[jinoji]

こちらではWorksheets(4)のレイアウトが分からないのです。（数量がどこにあるのか）
そのため、mySheetとWorksheets(4)が同一レイアウトだと仮定して書いたのが上記コードです。
E～Jがないということは、E列～にmySheetのK列～に対応した「数量」が入っているのでしょうか。
もしそうだとすると、For j = 11 To 最終列 のところを For j = 5 To 最終列とすればよいと思います。

[TARA91PS254]

申し訳ございません
ご指摘の通り、Worksheets(4)のE列にはmySheetのK列が対応しています
ありがとうございました