Question

我正在构建一个获取特定数据的Web抓取工具。提取数据后，下一步就是将其汇总为报告，因此我需要项目最后部分的一些指导。

我有一列（列A）包含以下数据集

产品说明

$ 3000

产品说明

5000美元

等

我想找到一个值（在这种情况下，通用值为$），并在描述旁边（进入B列）剪切该值。可能有数百行，因此需要循环。

我最初的想法是使用将找到一个值（$）的代码，然后在找到该值之后，剪切该行并使用偏移量将该值粘贴到B列中

任何帮助将不胜感激

Answer 1

sub test()

dim usedrows,i as integer

usedrows = activesheet.range("A" & activesheet.rows.count).end(xlup).row

for i=0 to usedrows

    if instr(range("A" & i+1),"$") <> 0 then 
                   'Checks if the looped cell has "$" sign  
        range("B" & i+1)=range("A" & i+1)
        range("A" & i+1)=""
    end if

next

end sub

Answer 2

将ColumnA复制到ColumB。向上移动Shift单元格删除B1。对fil1系列进行排序，将一列中的1奇数行，将2的偶数行，然后过滤以选择2 s，删除这些行，然后删除1 s的列。

使用偏移量剪切和粘贴

2 个答案: