For Each a In.Range("AG7", "AG" & .[R65536].End(xlUp).Row)
If a = "" Then
a.Value = ""
Else
a.Value = a.Value'1_顯示公式運算後純值
Mysheet = 1
End If
Next
If Mysheet = 0 Then
.Delete'4_移除
Else
Sharr(s) = 1
If ActiveWorkbook.Sheets(arr(s- 1)).Tab.ColorIndex = 6 Then Shbrr(s) = s
End If
Recommended article: Chomsky: We Are All – Fill in the Blank. This entry passed through the Full-Text RSS service - if this is your content and you're reading it on someone else's site, please read the FAQ at fivefilters.org/content-only/faq.php#publishers.
You are receiving this email because you subscribed to this feed at blogtrottr.com.
留言列表