小编Pun*_* GP的帖子

如何删除excelsheet(列)中的重复项,其中必须删除具有多个匹配项的项:

1  
2  
3  
3  
4  
4  

如果我们使用remove duplicate选项,它将给出不同的值,但是应该做什么才能获得值

1  
2  

由于1和2值不重复,因此这两个值在Excel(列)中只有一个出现

以下是VBA代码.Sheet2包含一般格式的所有值.运行代码后,Sheet3列'C'中的值包含13位或更多位数字的指数值.

应该怎么做才能使Sheet3的列'C'不包含指数值？

private Sub CommandButton1_Click()
Dim i, j, k As Variant

 k = 1
For i = 1 To 30000
If Sheet2.Range("c" & i).Value >= 100 And Sheet2.Range("c" & i).Value < 1000 Then
Sheet3.Range("a" & k).Value = Sheet2.Range("a" & i).Value
Sheet3.Range("b" & k).Value = Sheet2.Range("b" & i).Value

Sheet3.Range("c" & k).Value = Sheet2.Range("c" & i).Value

k = k + 1
End If
Next

End Sub

在通过获取 Html ID 并单击导出选项在下拉列表中选择一个项目后，我试图从 IE 导出文件，但在保存文件时我被震惊了。
我正在根据 excel 范围中的值在下拉列表中选择选项。

请帮忙。
下面是我正在尝试的代码。

Dim htm As Object
Dim IE As Object
Sub Website()

    Dim Doc As Object
    Set IE = CreateObject("internetexplorer.application")
    IE.Visible = True

    IE.navigate "http://**Link is confidential, sorry for not providing link**"

    Do While IE.readystate <> 4: DoEvents: Loop

    Set Doc = CreateObject("htmlfile")
    Set Doc = IE.document

        Set ref = Doc.getelementbyid("ReportViewerControl_ctl01_ctl05_ctl00")
        For x = 0 To ref.Options.Length - 1
            If ref.Options(x).Text = "Excel" Then
                ref.selectedIndex = x
                Set refclick = Doc.getelementbyid("ReportViewerControl_ctl01_ctl05_ctl01") …