例が欲しかったので、ここにあります:)しかし、これは答えではないことに注意してください。コメントがこのすべてのデータを保持できなくなるだけでなく、フォーマットも台無しになります。そうは言っても、それはあなたが望むもののほぼすべての側面をカバーするのとほぼ同じくらい良い答えです...
私の仮定:
- データはSheet1にあります
- コルSとコルTは同一です
あなたが望むものを達成するためのロジック
- Col Sの最後の行を取得します。たとえば、これを参照してください
- 列Sのセルをループして、小数点以下の数値を確認します
.Numberformat
列Sの各セルの小数点以下の桁数に基づいて列Tのセルをフォーマットするために使用します
いくつかのコードスニペット
ColSのセルをループする
For i = 1 To LastRow
If Sheets("Sheet1").Range("S" & i) .... Then
End If
Next i
上記のループでセルTの数値形式を設定する
'~~> n below is the number of decimal places that you want
Sheets("Sheet1").Range("T" & i).NumberFormat = "0." & String(n, "0")
これらすべてを組み込んでから、コードを考え出してみてください。あなたが立ち往生している場所を知らせてください、そして私たちはそこからそれを取ります。