` ` vb
Sub將最大值復制到另壹個表()
將源表作為工作表變暗
將目標表作為工作表變暗
Dim最大值為Double
Dim最大索引長度
將最後壹列變暗為長列
暗淡我壹樣長
設置源表和目標表。
set source table = this workbook . worksheets(" Sheet1 ")'將" sheet 1 "更改為您的源表名稱。
set target table = this workbook . worksheets(" Sheet2 ")'將" sheet 2 "更改為目標表的名稱。
找到源表中的最後壹列(假設數據從A列開始)
最後壹列=源表。單元格(4，源表。列。數數)。end (xltolft)。專欄。
初始化最大值和最大索引。
最大值=源表。單元格(4，1)。價值
最大指數= 1
遍歷第四行的值，找到最大值及其對應的索引。
對於最後壹列的i = 2
If源表。細胞(4，I)。值>；那麽最大
最大值=源表。細胞(4，I)。價值
最大索引= i。
如果…就會結束
接下來我
將第壹行的值復制到目標表中。
源表。行數(1)。復制目標表。行數(1)
將最大值從源表的第壹行復制到目標表的相應列。
源表。單元格(1，最大索引)。復制目標表。單元格(1，最大索引)
末端接頭
```
在運行代碼之前，請確保您的Excel工作簿中有兩個工作表:“Sheet1”包含您描述的數據，“Sheet2”是您要復制值的目標表。
若要運行代碼，請按“alt+f11”打開VBA編輯器，然後選擇“插入-& gt；模塊`，將代碼粘貼到模塊中。然後關閉VBA編輯器，按ALT+F8，選擇“將最大值復制到另壹個表”，然後單擊“運行”。
該代碼將查找“Sheet1”中第四行的最大值，並確定它在第壹行的哪壹列。然後，它會將整個第壹行和最大值復制到“Sheet2”中。