如何用VBA代碼寫多條件和表？

Dim SData As範圍

Dim DData As範圍

Dim RowSta壹樣長，RowLas壹樣長

Dim ColSta壹樣長，ColLas壹樣長

帶範圍(" A1 ")。當前區域

RowSta =。Find ("name "，，，，xlPart)。行+1。

ColSta =。Find ("name "，，，，xlPart)。列+2。

RowLas =。列(1)。發現(“接近？米“，，，xlPart)。第65438行+0。

ColLas =。Find ("sign "，，，，xlPart)。第三欄。

以…結尾

Set DData = Range(單元格(RowSta，ColSta)，單元格(RowSta，ColLas))

設置SData = DData。偏移量(-1，0)

對於i = RowSta到RowLas

細胞(I，ColLas + 2) =應用。SumProduct(SData，DData)

設置DData = DData。偏移量(1，0)

接下來我

末端接頭