私はゼロにしようとしているいくつかのワークシートに見出しを付けたデータ(数値)をたくさん持っています。これは、次のように各列で実行されます。列の最初の行の値を取得し、列のすべての行からこの値を減算します。次のエラーなしFor?
Dim ws As Worksheet
Dim Header As Range, ColData As Range
Dim firstrow As Long
Dim cell As Range, cell2 As Range
Set ws = ActiveSheet
Set Header = ws.Range("B5").End(xlToRight)
For Each cell In Header
If IsEmpty(cell) Then
Else
firstrow = cell.Offset(2).Value
If Not IsEmpty(cell.Offset(2)) Then
Set ColData = ws.Range(cell.Offset(2), cell.Offset(2).End(xlDown))
For Each cell2 In ColData
cell2.Value = cell2.Value - firstrow
Next cell2
Next cell
は私がのためにすることなく、次のエラーを取得しています(:)ので、VBAに最善の方法をではないかもしれないが、イム新しい)
私は一緒にこのコードを入れていますか?何か不足していますか?何か愚かな私は何度もチェックして、それを見つけることができないようだと私を許して!
ありがとうございます!
編集:IsEmpty関数が修正されましたが、正常に出力されませんでしたが、私はそれに取り組んでいます!
「End If」が2つありません –
下のコメントに記載されているように修正されましたが、まだエラーが発生しています! –
ありがとうございます。あなたのコーディングに幸運を祈る。 –