Excel VBA: как программно удалить идущих муравьев после range.copy

Следующий протестированный и рабочий код удалит дубликаты из массива. Необходимо включать Систему. Пространство имен наборов.

string[] sArray = {"a", "b", "b", "c", "c", "d", "e", "f", "f"};
var sList = new ArrayList();

for (int i = 0; i < sArray.Length; i++) {
    if (sList.Contains(sArray[i]) == false) {
        sList.Add(sArray[i]);
    }
}

var sNew = sList.ToArray();

for (int i = 0; i < sNew.Length; i++) {
    Console.Write(sNew[i]);
}

Вы могли обернуть это в функцию, если бы Вы хотели.

30
задан ashleedawg 27 June 2018 в 14:18
поделиться

2 ответа

application.cutcopymode = false

57
ответ дан 27 November 2019 в 23:40
поделиться

Попробуйте этот код в качестве примера. Ключевая строка: « Application.CutCopyMode = False »

Sub Test()
    Range("A1").Copy
    MsgBox "View Marching Ants"
    Range("A2").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
End Sub
5
ответ дан 27 November 2019 в 23:40
поделиться
Другие вопросы по тегам:

Похожие вопросы: