如果满足条件，则插入和复制行

Question

我有一个具有2000行和16列的Excel工作表。 示例：

Pozicija    Magacin KLIJENT Reg. Br model vozila    širina  profil  prečnik proizvođač  model-tip   Index   DP1 DP2 DP3 DP4 sezona

A10-4   BK2 AVIS    1502-HC FOCUS   205 55  16  Tigar   WINTER 1        4   4   6   6   

列名是：

Pozicija
Magacin
KLIJENT
Reg.Br
model vozila
širina
profil
prečnik
proizvođač
model-tip
Index
DP1
DP2
DP3
DP4
sezona

在第1行中，我有这个：

A10-4   BK2 AVIS    1502-HC FOCUS   205 55  16  Tigar   WINTER1 empty   4   4   6   6 Leto

我需要VBA脚本，该脚本将：

1. 逐行计算DP1，DP2，Dp3，DP4列中的非空单元格
2. 在该行下插入与VBA脚本计数的非空单元格一样多的行
3. 在插入的行中复制数据

我将尝试在一个示例中对其进行解释：

在第1行中，我有这个：

A10-4   BK2 AVIS    1502-HC FOCUS   205 55  16  Tigar   WINTER 1        4   4   6   6 Leto

在这一行的DP1，DP2，DP3，DP4列中，我分别具有“ 4”，“ 4”，“ 6”，“ 6”。

我需要从VBA脚本中计算出有4个非空单元格（1，DP1、1，DP2、1，DP3、1，DP4），然后在第1行（4个非空）下插入三行单元格减一），然后将数据从第1行复制到第1行下面的所有三个插入行。