SHARE
TWEET

「結合して中央揃え」を自動で解除VBA.vbs

filledwithgarbages Jan 22nd, 2020 258 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Sub 結合して中央揃え解除()
  2. Dim i As Long
  3. i = 0
  4.     For i = 1 To Sheets.Count
  5.         Sheets(i).Select
  6.         Range("J3:L3").Select
  7.         With Selection
  8.             .HorizontalAlignment = xlGeneral
  9.             .VerticalAlignment = xlCenter
  10.             .WrapText = False
  11.             .Orientation = 0
  12.             .AddIndent = False
  13.             .IndentLevel = 0
  14.             .ShrinkToFit = False
  15.             .ReadingOrder = xlContext
  16.             .MergeCells = False
  17.         End With
  18.         Selection.UnMerge
  19.     Next i
  20. End Sub
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
Top