Function tubiao(rng As Range) Sheet14.[h1] = rng.ValueEnd Function
Function tubiao(rng As Range)
Sheet14.[h1] = rng.Value
End Function