Question

我正在尝试将非重复值从一个工作表复制并粘贴到excel中的另一个工作表。我需要复制和粘贴公式列中的唯一值。我尝试从堆栈交换下面的代码，但它只适用于非公式列。如何仅从公式列复制粘贴非重复值？

 Sub CopyUnique()
    Dim s1 As Worksheet, s2 As Worksheet
    Set s1 = Sheets("Main")
    Set s2 = Sheets("Count")
    s1.Range("B:B").Copy s2.Range("A1")
    s2.Range("A:A").RemoveDuplicates Columns:=1, Header:=xlNo
End Sub

Answer 1

尝试将其粘贴为值：

Sub CopyUnique()
    Dim s1 As Worksheet, s2 As Worksheet
    Set s1 = Sheets("Main")
    Set s2 = Sheets("Count")
    s1.Range("B:B").Copy 
    s2.Range("A1").PasteSpecial xlPasteValues
    s2.Range("A:A").RemoveDuplicates Columns:=1, Header:=xlNo
End Sub

Answer 2

如果您想从工作表- (UICollectionViewCell *)collectionView:(UICollectionView *)collectionView cellForItemAtIndexPath:(NSIndexPath *)indexPath { // setup your cell // ... [UIView performWithoutAnimation:^{ [cell layoutIfNeeded]; }]; return cell; }中考虑非公式值并将其唯一值粘贴到工作表s1中，请使用此选项：

s2

仅从公式列

2 个答案: