更改输出表

Question

我有以下代码，根据日期根据某些过滤器给出计数。 但问题是我想改变粘贴O / P的目的地。

目前，计算是在＆＃34;延迟＆＃34;表和O / P本身粘贴。我只想将输出更改为单元格＃52; WBR45＆＃34;

中的单元格AE5

Initial string  
yy-aa-bbb-cccc1:HYT    =>    yy-aa-bbb:HYT 
yy-aa-vvv-vv:ZTR       =>    yy-aa-vvv:ZTR 
yy-aa-ddd:YTLM         =>    yy-aa-ddd:YTLM 

Answer 1

可以做很多工作来简化和简化这段代码，但在目前的情况下，我认为你需要这样做。

之后

Const strShtName As String = "Latency" 

添加

Const StrOPName as string = "WBR45"

更改

Const strOutput1 As String = "AE2"

到

Const strOutput1 As String = "AE5"

我想改变

Const strOutput2 As String = "AF2"

到

`Const strOutput2 As String = "AF5"`  'not sure if this is what you want as well

添加

Dim wsOP As Worksheet

之后

dim ws as worksheeet

和 设置wsOP = sheets (strOPname) 在set ws = worksheets (strShtName)之后

从“with ws”部分中取出

Set rngOutput1 = .Range(strOutput1)
Set rngOutput2 = .Range(strOutput2)

并在“结束后”

之后添加

Set rngOutput1 = wsOP.Range(strOutput1)
Set rngOutput2 = wsOP.Range(strOutput2)

然后，当达到rngoutput1.value语句时，目标范围将是wsOP.range（“AE5”）

并且rngoutput2.value将移至AF5 我认为这就是你所需要的。稍微摆弄一下。