返回列表 上一主題 發帖

讓我好幾天都不能睡覺的問題 如何儲存在同一儲存格出現的多筆資料?

回復 1# kiwimenmate
DDE只會觸發 Worksheet_Calculate
所以,利用A1是否重複做判斷即可
  1. Private Sub Worksheet_Calculate()
  2. If IsError(Application.Match([A1], [C:C], 0)) Then
  3. [C65536].End(xlUp).Offset(1, 0).Resize(, 2) = Application.Transpose([A1:A2].Value)
  4. Range("C1").CurrentRegion.Offset(1).Sort key1:=[C2], header:=xlNo
  5. End If
  6. End Sub
複製代碼
學海無涯_不恥下問

TOP

        靜思自在 : 滴水成河。粒米成蘿,勿輕己靈,勿以善小而不為。
返回列表 上一主題