小编coo*_*ter的帖子

我试图计算从第 2 行开始的 AJ 列中每行中这个短语“SMM:”的出现次数，然后将每行的值分配给从第 2 行开始的 BL 列。

Sub calculateamlp()


Dim charactercount As Integer
Dim rangeAG As Range
Dim cellCheck As Range
Dim f As Integer
f = 2
 Worksheets("pptsr").Activate

Set rangeAG2 = Range("BL2", Range("BL2").End(xlDown))
Set rangeAG = Range("Aj2", Range("Aj2").End(xlDown))
For Each cellCheck In rangeAG

        charactercount = Len(cellCheck) - Len(WorksheetFunction.Substitute(cellCheck, ":", ""))


        Worksheets("pptsr").Range("BL2" & f).Value = charactercount

   f = f + 1
Next cellCheck

End Sub

我是 VBA 新手，我需要帮助做一些事情：

如下图所示，我有一个名字列表。我想要做的是根据他们在 A 列中的姓名，从 Outlook 联系人列表（电子邮件地址分散在不同的联系人文件夹中）检索他们的电子邮件地址，并将它们粘贴到 B 列中。

或者，是否可以从 Outlook 联系人中获取每个姓名的电子邮件地址，并使用 Outlook 自动向他们发送电子邮件，以便我可以摆脱 B 列。

我在这里有这个代码以及它应该做什么：

用户输入最大数量。并根据输入的数字，我想显示该数字之前的所有偶数。

#! /bin/bash
echo "What is your max number:"

read counter


for number in {0.."$counter"}

if [ (($number % 2 == 0)) ]
then
echo "$number"
fi

但它不起作用。相反，当我从终端调用他的脚本时，我收到了这个错误：

[root@sunshine Desktop]# bash Tester
What is your max number:
9
Tester: line 9: syntax error near unexpected token `if'
Tester: line 9: `if [ (($number % 2 == 0)) ]'

我有一个数组,我想计算它出现的实例数.

输入示例:

int[] a = new int[]{1,1,1,2,3,4,4};

输出:

1  3
2  1
3  1
4  2

到目前为止,我能够获得独特但无法得到的数据.

public static void arrayfrequency(int[] a)
{
    //store the distinct list
    var GetDistinct = a.Distinct().ToArray();

    foreach (int index in GetDistinct)
    {
        Console.WriteLine(index);
    }
}