我看了妳的照片(與妳的描述相反)
嘗試以下方法
Sub a()
Dim b，c，I
b =單元格(65000，1)。結束(xlUp)。排
c =細胞(65000，4)。結束(xlUp)。排
對於範圍內的每個單元格(單元格(1，1)，單元格(b，1))
對於範圍內的每個b單元格(單元格(1，4)，單元格(c，4))
如果艾斯爾斯。值= b單元格。那就值了
阿塞爾斯。Offset(，1) = "10，0 "
阿塞爾斯。Offset(，2) = "10 "
如果…就會結束
然後
末端接頭